Найти наибольшее из значений функции в расчётных точках с нечётными номерами - Pascal ABC

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

Найти наибольшее из значений функции в расчётных точках с нечётными номерами y=6(1-e^-1x)*sin(4*pi*x+30градусов)

Решение задачи: «Найти наибольшее из значений функции в расчётных точках с нечётными номерами»

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

var a,b,dx,x,y,max:real;
    n,i:integer;
begin
write('Введите начало интервала a=');
readln(a);
repeat
write('Введите конец интервала b>a b=');
readln(b);
until b>a;
repeat
write('Введите кол-во расчётных точек n>1 n=');
readln(n);
until n>1;
dx:=(b-a)/(n-1);
x:=a;
max:=a;
for i:=1 to n do
 begin
  y:=5*(1-exp(-2*x))*sin(4*pi*x+pi/6);
  writeln(i:2,' x=',x:5:2,'  y=',y:8:2);
  if odd(i)and(y<max) then max:=y;
  x:=x+dx;
 end;
writeln('Наибольшее значение с нечетным номером= ',max:8:2);
end.

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

Ввод начальной и конечной точки интервала для вычисления функции.
Вычисление шага dx для интервала.
Инициализация переменных x, y, max со значениями начальной точки, текущего значения функции и максимальным значением функции соответственно.
Цикл для вычисления функции на n расчетных точках.
Внутри цикла:
- Вычисление значения y как функции от x.
- Вывод значения x и y на экран.
- Если текущее значение y меньше максимального значения и номер точки нечетный, то обновление максимального значения на y.
- Увеличение значения x на dx.
Вывод на экран наибольшего значения функции с нечетным номером.