Pascal abc значения функции f(x)=0,348+cox(x/4) определены при x=x0(hx)xn определить, сколько значений функции f(x) при заданных x расположены ниже прямой y=0,555.

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.