На языке ПАСКАЛЬ сделать:
Найти квадрат суммы максимального и минимального из 4 чисел.

Предыдущий
вопрос Следующий
вопрос

program FindSquareOfSumMinMax;

var
num1, num2, num3, num4, max, min, sum, square: integer;

begin
write('Введите 4 числа: ');
readln(num1, num2, num3, num4);

max := num1;
if num2 > max then
max := num2;
if num3 > max then
max := num3;
if num4 > max then
max := num4;

min := num1;
if num2 < min then
min := num2;
if num3 < min then
min := num3;
if num4 < min then
min := num4;

sum := max + min;
square := sum * sum;

writeln('Квадрат суммы максимального и минимального чисел: ', square);
end.