40 построить программу pascal вычислить значения функции f(x) =x-sin(x-1) на отрезке [a, b] с шагом h​

var

 a,b,h:integer;

function F(x:integer):real;

 begin

   F:=x-sin(((x-1)*pi)/180);  

 end;

begin

 write('a: ');readln(a);

 write('b: ');readln(b);

 write('h: ');readln(h);

 writeln;

 while a<=b do

   begin

     writeln('При a=',a,' F(a): ',F(a):5:3);

     a:=a+h;

   end;

end.