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

Формулировка задачи:

19. Дана функция У = ЗХ³ + 1,5Х² - 1,8. где X изменяется от А до В с шагом H. Найти максимальное значение У на отрезке [А, В].

Решение задачи: «Найти максимальное значение функции Y на отрезке [А, В]»

Листинг программы

{Дана функция У = ЗХ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.

Объяснение кода листинга программы

Объявлены переменные: f, a, b, h, x, y (функция, точки начала и конца отрезка, шаг, координаты, значение функции)
Заданы начальные значения переменных: a=1, b=2, h=0.1, x=1, y=3xxx+1.5x*x-1.8
Введен код для вычисления значения функции y по заданному значению x
Вычислены значения функции для всех точек на отрезке [a, b] с шагом h
Найдено максимальное значение функции на отрезке [a, b] и сохранено в переменной max
Выведено максимальное значение функции на экран
Введен код для вывода значений x и y на экран с шагом 2 знака после запятой
Введен условный оператор для проверки, является ли текущее значение y максимальным, и если да, то обновить значение max
Увеличить значение x на шаг h и повторить шаги 4-8 для всех точек на отрезке [a, b]
Выведено максимальное значение функции на экран