Вычислить максимальное значение функции - Pascal

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

Буду благодарен, если кто-то поможет или толкнет в нужном направлении. Задано целое число a. Если a > 0, то вычислить максимальное среди значений функции f(x) = (e^x)/(sinx + cosx) на отрезке [-5;5] с шагом 0,2. В противном случае распечатать все положительные значения функции f(x).

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

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

var a,x,dx,mx,f:real;
begin
write('a=');
readln(a);
x:=-5;
dx:=0.2;
while x<=5 do
 begin
  f:=exp(x)/(sin(x)+cos(x));
  if x=-5 then mx:=f else if f>mx then mx:=f;
  if(a<=0)and(f>0) then writeln('x=',x:4:1,' f=',f:6:3);
  x:=x+dx;
 end;
if a>0 then write('Максимальное значение f=',mx:0:3);
end.

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

Объявляются переменные:
- a - для хранения введенного пользователем значения параметра a функции
- x - для хранения значения аргумента функции
- dx - для хранения значения шага приращения аргумента
- mx - для хранения максимального значения функции
- f - для хранения значения функции
Пользователю предлагается ввести значение параметра a.
Задаются начальные значения аргумента x и шага приращения dx.
Выполняется цикл while x<=5 do, который продолжает выполнение, пока значение x не превысит 5.
- Вычисляется значение функции f при текущем значении аргумента x с использованием функций exp(x), sin(x) и cos(x).
- Если x равно -5, значение mx устанавливается равным значению функции f. Иначе, если значение f больше текущего значения mx, значение mx обновляется значением f.
- Если параметр a меньше или равен нулю и значение функции f больше нуля, выводится значение аргумента x и значения функции f.
После выполнения цикла проверяется, больше ли значение параметра a нуля.
Если значение параметра a больше нуля, выводится сообщение с максимальным значением функции.