[ChinYan]

Вот работающий код:

Код:

program Project5;

{$APPTYPE CONSOLE}

uses
SysUtils;

var x1,x2,h,x,y:real;
begin

write('Enter low bound');
readln(x1);
write('Enter high bound');
readln(x2);
write('Enter step');
readln(h);
x:=x1;
while x<=x2 do
begin
y:= x*arctan(x);
writeln('x=',x:4:1,' y=',y:6:2);
x:=x+h;

end;
readln;
end.