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

правильно?

все работает

спс

Да действительно работает! Спасибо

нез

var a,b,c,d,min,max: integer;beginreadln(a,b,c,d);min:=a;max:=a;if (b >= max) then max:=b;if (b <= min) then min:=b;if (c >= max) then max:=c;if (c <= min) then min:=c;if (d >= max) then max:=d;if (d <= min) then min:=d;writeln((max+min)*(max+min));end.

var  a,b,c,d,min,min1,max,max1:integer;begin  Readln(a,b,c,d);  if a>b then begin max1:=a; min1:=b end  else begin max1:=b; min1:=a end;  if c>d then begin max:=c; min:=d end  else begin max:=d; min:=c end;  if max1>max then max:=max1;  if min1<min then min:=min1;  Writeln('max=',max,' min=',min)end.