функция с шагом и выводом отрицательного значения

[newerow1989]

Пожалуйста!

[Dvoishnik]

program Project2;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
function f(x:real):real;
begin
   Result:=Sin(x)+Cos(5*x);
end;

const h=0.9;
      a=-3;
      b=9;
var x,y:real;
begin
    readln (x); // эта функция бесполезна она не как не влияет на вычисления только тормозит процесс. Какое бы вы число не ввели ничего не поменяется. 
   x:=a-h;
   Repeat
      x:=x+h;
      y:=f(x);
      If y<0 then
         Writeln(y:5:5);
   Until x>=b;
   Readln;
end.