Victor123

Данные таковы.
Program kontr;
var a,b,h,x,y:real;
begin
writeln('ввод a,b,h');
read (a,b,h);
writeln (' x y');
x:=a;
while x<=b do begin
y:= sqrt(x)-ln(x+1);
writeln (x:8:3,y:8:3);
x:=y+h;
end;
readln;readln;
end.