Помогите решить задачу.Напечатать таблицу значений функции y=e^x-arccosx^2 на отрезке [0,5;1,5] с шагом 0,1.
program pr;
var x,y:real;
a,b,h:real;
begin
writeln('vvedite a,b,h');
readln(a,b,h);
x:=a;
writeln('---------------------------');
writeln('X':8,'Y':8);
while x<=b do
y:=exp(x) — arctan(sqrt(1-sqr(x*х))/(x*х));
writeln(x:8:2,y:8:2);
x:=x+h;
end;
readln
end.
a=0.5
b=1.5
h=0.1
Буду благодарна, если отметите как лучший