Распечатать таблицу
значений функции F для x,
изменяющегося в интервале от x0
до xk с шагом h.
Значения x0, xk,
h вводятся пользователем.

var x,f,h,x0,xk,a:real;

const b=3;

BEGIN

WRITELN('AAAAEOA X0,x, Xk,h');

READLN(X0,x, Xk,a);

x:=x0;

while x<3 do

begin

F:=a*x+cos(x)+sqrt(ln(abs(x-3)));

end;

write(f:4:3);

write(' ');

while x=3 do

begin

f:=(x*x-b*b)+cos (pi)*x;

end;

write(f:4:3);

write(' ');

while x<3 do

begin

F:=(x-b)*sin(2*pi)*x;

end;

write(f:4:3);

end.