2014. Накрыть стол

program stol;

var

A,B :array [1..4] of real;

i,J:integer;

par,S,d1,d2 :real;

begin

Assign (input,'input.txt');

Reset (input);

for I:=1 to 4 do

  read(A[i],B[i]);

for i:=1 to 3 do

    for j:=I+1 to 4 do

      if A[I]<A[j] then

        begin

          par:=A[j];

          A[j]:=A[I];

          A[i]:=par;

        end;

 

for i:=1 to 3 do

    for j:=I+1 to 4 do

      if B[I]<B[j] then

        begin

          par:=B[J];

          B[j]:=B[I];

          B[i]:=par;

        end;

D1:= A[1]-A[4];

D2:=B[1]-B[4];

Assign (output,'output.txt');

Rewrite(output);

if D1>D2 then S:=Sqr(d1) else S:=Sqr (D2);

Write (S:5:5);

Close (input);

Close (output);

end.