Найти сумму максимального и минимального значений функции y - Pascal ABC

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

Найти суммы максимального и минимального значений функции y. Есть кусочек программы"дальше хз как делать" и Блок схема!

program lab_3;
var a,b,c,x,у,y_max,y_min:real;
Function fox(x: real): real;
var y:real
begin
y:=9,2(cos sqr(x))-sin(x)/1.1;
end;
begin
wr

Блок схема: [404]

Решение задачи: «Найти сумму максимального и минимального значений функции y»

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

Function f(x: real): real;
begin
f:=9.2*(cos(x*x))-abs(sin(x)/1.1);
end;
var a,b,h,x,y,ymin,ymax:real;
begin
repeat
writeln('Введите интервал исследования функции a<b');
readln(a,b);
until a<b;
repeat
write('Ваедите шаг табуляции 0<h<',b-a:0:2,' h=');
readln(h);
until(h>0)and(h<b-a);
x:=a;
ymin:=f(a);
ymax:=f(a);
while x<=b do
 begin
  y:=f(x);
  writeln('x=',x:5:2,'  y=',y:6:3);
  if y<ymin then ymin:=y;
  if y>ymax then ymax:=y;
  x:=x+h;
 end;
writeln('Сумма минимального и максимального=',ymin+ymax:0:3);
end.

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

Создается функция f, которая принимает аргумент x типа real и возвращает значение типа real. Внутри функции выполняется вычисление значения функции y с помощью формулы y = 9.2 * cos(x^2) - abs(sin(x)/1.1).
Создаются переменные a, b, h, x и y типа real.
Выполняется цикл repeat-until для получения от пользователя интервала исследования функции a < b.
Внутри цикла повторяется запрос пользователю ввести шаг табуляции h.
Выполняется цикл while для вычисления значений функции y в точках x = a, x = a + h, x = a + 2h и т.д.
В каждой итерации цикла выводится значение x и y на экран.
Если значение y меньше минимального значения ymin, то обновляется значение ymin.
Если значение y больше максимального значения ymax, то обновляется значение ymax.
После завершения цикла while значение x становится равным b, и вычисляются минимальное и максимальное значения функции y как ymin и ymax соответственно.
Выводится на экран сумма минимального и максимального значений функции y.