Вычислить значение функции на интервале. - Pascal ABC

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

Вычислить функцию у = 2х^2 - 8Sinх (-2< х >3). Шаг изменения аргумента задавать с клавиатуры. Найти ее минимум и максимум. Вывести в виде таблицы результаты вычислений.

Решение задачи: «Вычислить значение функции на интервале.»

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

var a,b,x,y,h,mn,mx:real;
begin
a:=-2;
b:=3;
repeat
write('Введите шаг h<',b-a:0:1,' h=');
readln(h);
until h<b-a;
x:=a;
mn:=2*x*x-8*sin(x);
mx:=mn;
while x<=b do
 begin
  y:=2*x*x-8*sin(x);
  writeln('x=',x:5:2,' y=',y:6:3);
  if y<mn then mn:=y
  else if y>mx then mx:=y;
  x:=x+h;
 end;
writeln('Min=',mn:0:3);
writeln('Max=',mx:0:3)
end.

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

Создаются переменные a, b, x, y, h, mn, mx, которые представляют собой числа с плавающей точкой.
Задается начальное значение переменной a равным -2, и значение переменной b равным 3.
Запускается цикл repeat, который продолжается до тех пор, пока h меньше b минус a. В каждой итерации цикла пользователю предлагается ввести шаг h.
После каждой итерации цикла значение переменной x обновляется, чтобы оно было равно a.
Значение переменной mn обновляется, чтобы оно было равно удвоенному значению x, умноженному на себя.
Значение переменной mx обновляется, чтобы оно было равно максимальному значению из mn и предыдущего значения mx.
Цикл while начинается. Для каждой итерации цикла значение переменной x увеличивается на h.
Внутри цикла while значение переменной y обновляется, чтобы оно было равно удвоенному значению x, умноженному на себя, вычтенному из 8-кратной синуса x.
Если значение y меньше значения mn, то значение mn обновляется, чтобы оно было равно значению y.
Если значение y больше значения mx, то значение mx обновляется, чтобы оно было равно значению y.
После каждой итерации цикла значение x увеличивается на h.
По окончании цикла while выводится минимальное значение mn и максимальное значение mx.
Программа завершается.