Дано x, y, z. Вычислить min(max2(a, b), c2) - Pascal ABC

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

Дано x, y, z. Вычислить min(max2(a, b), c2)

Решение задачи: «Дано x, y, z. Вычислить min(max2(a, b), c2)»

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

var
  x, y, z, a, b, c, max, min: real;
 
begin
  cls;
  write('x = ');
  readln(x);
  write('y = ');
  readln(y);
  write('z = ');
  readln(z);
  a := sqrt(4 * sqr(y)) + z * z * z / 1 * 2 * 3;
  b := 1 / sqrt(4 * sqr(y)) + 5;
  c := (((z * z * z) * x / 6)) + ln(1);
  if a > b then max := a
  else max := b;
  max := sqr(max);
  min := c * c;
  if max < min then min := max;
  writeln;
  writeln('Результат: ', min)
end.

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

В начале кода объявляются переменные x, y, z, a, b, c, max, min типа real.
Затем происходит очистка экрана с помощью команды cls.
Далее пользователю предлагается ввести значения переменных x, y, z с помощью команды readln(x), readln(y), readln(z).
После этого вычисляется значение переменной a с помощью формулы sqrt(4 sqr(y)) + z z z / 1 2 * 3.
Затем вычисляется значение переменной b с помощью формулы 1 / sqrt(4 * sqr(y)) + 5.
Далее вычисляется значение переменной c с помощью формулы (((z z z) * x / 6)) + ln(1).
После этого проверяется, какое из значений a и b больше, и присваивается переменной max соответствующее значение.
Затем max возводится в квадрат с помощью операции sqr(max).
Далее min присваивается значение c * c.
Затем проверяется, является ли max меньше min, и если да, то присваивается min значение max.
После этого выводится результат с помощью команды writeln.
Конец программы.