Найти максимальное значение функции Y на отрезке [А, В] - Free Pascal

{Дана функция У = ЗХ3 + 1,5Х2 - 1,8. где X изменяется от А до В с шагом H. 
Найти максимальное значение У на отрезке [А, В]. }
function f(x: real): real;
begin
  f := 3 * x * x * x + 1.5 * x * x - 1.8;
end;
 
var
  max, a, b, h, x, y: real;
 
begin
  readln(a, b, h);
  max := f(a);
  x := a;
  while x <= b do 
  begin
    y := f(x);
    writeln(x:8:2, y:8:2);
    if y > max then 
      max := y;
    x := x + h;
  end;
  writeln(max:8:2);
end.