Условный оператор. Даны три числа. Найти квадратный корень квадратов максимального и минимального из них. На языке Паскаля

Для решения данной задачи на языке Паскаля, приведу пример кода, который находит квадратный корень квадратов максимального и минимального чисел из трех заданных.

program FindSqrtOfMaxMinSquares;

var
  a, b, c, maxNum, minNum, maxSquare, minSquare: real;

begin
  write('Enter the first number: ');
  readln(a);
  write('Enter the second number: ');
  readln(b);
  write('Enter the third number: ');
  readln(c);

  maxNum := max(max(a, b), c);
  minNum := min(min(a, b), c);

  maxSquare := sqr(maxNum);
  minSquare := sqr(minNum);

  writeln('Max Num: ', maxNum:0:2, ', Square: ', maxSquare:0:2);
  writeln('Min Num: ', minNum:0:2, ', Square: ', minSquare:0:2);

  writeln('Square root of Max Square: ', sqrt(maxSquare):0:2);
  writeln('Square root of Min Square: ', sqrt(minSquare):0:2);
end.

Этот код сначала запрашивает у пользователя три числа, затем находит максимальное и минимальное из них, вычисляет квадраты этих чисел и выводит на экран квадратный корень квадратов максимального и минимального чисел.