Составить программу на паскале6

var a,b,h,f,x:real;

begin

write('Введите a,b,h');

readln(a,b,h);

x:=a;

writeln('x':8,'F(x)':10);

while x<=b do

 begin

 f:=1/2*sin(x/4)+1;

 writeln(x:8,f:10:3);

 x:=x+h;

 end

end.

Объяснение:

Это пример, там уже по своему как надо можешь поставить)