Вычислить значения выражений

program Project1;
 
var
  a1,a2,amax: real; {Промежуточные переменные для вычисления наибольшего значения}
  m,n,k: real; {Переменные для хранения значений аргументов}
  Z: real; {Переменная для хранения значения вычислений}
begin
  write('Введите значение аргумента m: ');
  Readln(m);      {ввод значение аргумента в программу}
  write('Введите значение аргумента n: ');
  Readln(n);      {ввод значение аргумента в программу}
  write('Введите значение аргумента k: ');
  Readln(k);      {ввод значение аргумента в программу}
  if (m >= 7) and (m <= 8.5) then  {условие для разветвления вычисления первого промежуточного аргумента}
    a1:= 1.5*(m+n)   {первая ветка для вычисления первого промежуточного аргумента}
  else
    if n = 0 then  {проверка аргумента на нулевое значение }
      writeln('Функция не определена.')
    else
      begin
        a1:= 0.75*m/n;  {вторая ветка для вычисления первого промежуточного аргумента}
        if m = 0 then {проверка аргумента на нулевое значение}
          writeln('Функция не определена.')
        else
          begin
            a2:= ((sqr(n) + sqr(m))*k)/(3.5*m); {вычисление второго промежуточного аргумента}
            if a1 > a2 then   {нахождение максимального по значению промежуточного аргумента}
              amax:= a1
            else
              amax:= a2;
            Z:= sqr(amax) + 0.5; {вычисление основной формулы}
            writeln('Результат вычислений: ',Z:0:4); { вывод результатов вычислений в консоль}
          end;
 
      end;
  Readln;
end.