Вычислить значение выражения - PascalABC.NET (24850)

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

Само задание выглядет так: n= min(x+y, y-z)/max (x,y,z)

Решение задачи: «Вычислить значение выражения»

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

var x, y, z, min, max: real;
begin
  write('x = ');
  readln(x);
  write('y = ');
  readln(y);
  write('z = ');
  readln(z);
  if x + y < y - z then min := x + y else min := y - z;
  if x > y then max := x else max := y;
  if z > max then max := z;
  if max = 0 then write('n не определено.') else write('n = ', min / max);
  readln
end.

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

Ввод значений переменных x, y, z с помощью функции readln().
Присваивание значения переменной min с помощью условного оператора if.
Присваивание значения переменной max с помощью условного оператора if.
Проверка значения переменной max перед делением на ноль.
Вывод значения переменной min/max с помощью функции write().
Завершение работы программы с помощью функции readln().