Для решения данной задачи на языке Паскаля, приведу пример кода, который находит квадратный корень квадратов максимального и минимального чисел из трех заданных.
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.
Этот код сначала запрашивает у пользователя три числа, затем находит максимальное и минимальное из них, вычисляет квадраты этих чисел и выводит на экран квадратный корень квадратов максимального и минимального чисел.
