Найти максимум функции

[Конь Антон]

Найти максимум функции y=a-sin(cd)-cx^2 на отрезке xϵ [2,15] с шагом h=0,5

[newerow1989]

const h=0.5;
var x,y0,y1,y2,a,c,d,xmax,ymax:real;

function f(x:real):real;
begin
   Result:=a-sin(c*d)-c*x*x;
end;

begin
   xmax:=0;
   ymax:=0;
   a:=1;
   c:=1;
   d:=1;
   x:=2;
   Repeat
      x:=x+h;
      y0:=f(x-h);
      y1:=f(x);
      y2:=f(x+h);
      If (y0<y1) and (y1>y2) then
      begin
         xmax:=x;
         ymax:=y1;
      end;
   Until x>=15;
   If xmax>0 then
      Writeln('y_max = y(',xmax:5:5,') = ',ymax:5:5) else
      Writeln('no');
   Readln;
end.

Не могу подобрать коэффициенты, чтобы проверить!