Составить программу для вычисления значений функции F(x)

[p-6]

Составить программу для вычисления значений функции F(x) на отрезке [а, b] с шагом h. Результат представить в виде таблицы, первый столбец которой — значения аргумента, второй — соответствующие значения функции.

[VIK_aka_TOR]

var
x,a,b,h,f : real;
begin
write('Vvedite a: ');
readln(a);
write('Vvedite b:');
readln(b);
write('Vvedite h:');
readln(h);
writeln('Tablichka');
x := a;
while x <= b do
 begin
  f := sqrt(x) * sqr(cos(x)); // возможно придется переводить радианы в градусы.
  writeln(x:3:3, ' | ',f:3:3); // точность вывода ":" подгоните под ссебя
  x := x + h;
 end;
end.