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

var

a,b,h:real;

function f:real;

begin

f:=0;

while a<=b do begin

f:=cos(a)+(sin(a)/cos(a));

writeln(a:2:2,' ',f:2:2);

a:=a+h;

end;

end;

begin

readln(a,b,h);

f;

end.