Надеюсь, что нигде я не ошибся.)
var x,y,z,w: Integer;
begin
writeln('Введите x');
readln(x);
writeln('Введите y');
readln(y);
writeln('Введите z');
readln(z);
writeln('Введите w');
readln(w);
writeln('а) ',(x-y)/(sqr(x)+10));
writeln('б) ',abs(10-sqrt(abs(x-5))));
writeln('в) ',(1+(1+((1/y)/z)))/w);
end.