паскль. как написать программу ?

[madmax]

Вычислить значение функции на отрезке [a.b] c шагом h. Вывод осуществить в виде таблицы "значение х, значение у"

y=7sin^2 x-1/2cosx
заране спасибо

[Chudo4258]

readln(a,b,h);
while a<=b do
 begin
  writeln(a,'     |       ', (7*sqr(sin(2*a))-0.5*cos(a)):10:5);
  a:=a+h;
 end;

[madmax]

Chudo4258, спасибо