Вычислить значения функции F(x), на отрезке [a;b] с шагом h — Паскаль(Pascal)-CF

var x,a,b,h,f:real;
begin
writeln('Введите a<b');
readln(a);
readln(b);
x:=a;
h:=0.2;
while x<b+h/2 do
 begin
  f:=-cos(2*x);
  writeln('x=',x:4:1,'  f(x)=',f:6:3);
  x:=x+h;
 end;
 end.