вычисление значения функции на отрезке от [а; b] c шагом h - Паскаль, Дельфи

[Стасечка]

разработать алгоритм и написать программу вычисления знач. функции на отр от [а; b] c шагом h. Результат представить в виде таблицы F(X)=2cos(в квадрате)x-1 программку надо сделать либо в паскале,либо в делфи(оч срочно)

[alex_fcsm]

var a,b,Fun,h:real;
    n,i:integer;
begin
writeln('Input a');
readln(a);
writeln('Input b');
readln(b);
writeln('Input kolvo intervalov');
readln(n);
dec(n);
h:=(b-a)/n;
writeln;
for i:=0 to n do
 begin
  Fun:=2*sqr(cos(a+i*h))-1;
  write(a+i*h:6:2);
  writeln(Fun:6:2);
 end;
end.

[Стасечка]

Спасибо большое за помощь ))