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

Var
  a,b,c,d,min,min1,max,max1:integer;
begin
  Readln(a,b,c,d);
  if agt;b then begin max1:=a; min1:=b end
  else begin max1:=b; min1:=a end;
  if cgt;d then begin max:=c; min:=d end
  else begin max:=d; min:=c end;
  if max1gt;max then max:=max1;
  if min1lt;min then min:=min1;
  Writeln('max=',max,' min=',min)
end.

Var a,b,c,d,min,max: integer;
begin
readln(a,b,c,d);
min:=a;
max:=a;
if (b gt;= max) then max:=b;
if (b lt;= min) then min:=b;
if (c gt;= max) then max:=c;
if (c lt;= min) then min:=c;
if (d gt;= max) then max:=d;
if (d lt;= min) then min:=d;
writeln((max+min)*(max+min));
end.