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

.//Pascal ABC.NETvari,max,min,res:integer;a: array [1..4] of integer;beginwriteln('Введите числа');for i:=1 to 4 doread(a[i]);max:=a[1];min:=a[1];for i:=1 to 4 dobeginif max<a[i] then beginmax:=a[i];end;if min>a[i] then beginmin:=a[i];end;end;res:=sqr(max+min);writeln('max=',max,' min=',min);writeln('Квадрат суммы min и msx = ', res);end.