Найти площадь пересечения трех заданных квадратов

function min(a,b:integer):integer;
begin
if a<b then min:=a else min:=b;
end;
function max(a,b:integer):integer;
begin
if a>b then max:=a else max:=b;
end;
procedure vvod(var x1,y1,x2,y2:integer; k:integer);
begin
repeat
writeln('Введите координаты левой верхней и правой нижней вершин квадрата ',k);
readln(x1,y1,x2,y2);
until(x2>x1)and(y2<y1)and(x2-x1=y1-y2);
end;
var x1,y1,x2,y2,x3,y3,x4,y4,x5,y5,x6,y6,
    x11,y11,x12,y12,x13,y13,x14,y14,s:integer;
begin
vvod(x1,y1,x2,y2,1);
vvod(x3,y3,x4,y4,2);
vvod(x5,y5,x6,y6,3);
x11:=max(min(x1,x2),min(x3,x4));
x12:=min(max(x1,x2),max(x3,x4));
y11:=max(min(y1,y2),min(y3,y4));
y12:=min(max(y1,y2),max(y3,y4));
s:=(x12-x11)*(y12-y11);
if s<=0 then writeln('Все три квадрате не пересекаются')
else
 begin
  x13:=max(min(x11,x12),min(x5,x6));
  x14:=min(max(x11,x12),max(x5,x6));
  y13:=max(min(y11,y12),min(y5,y6));
  y14:=min(max(y11,y12),max(y5,y6));
  s:=(x14-x13)*(y14-y13);
  if s<=0 then writeln('Все три квадрате не пересекаются')
  else writeln('Площадь пересечения=',s);
 end;
end.

function min(a,b:integer):integer;
begin
if a<b then min:=a else min:=b;
end;
function max(a,b:integer):integer;
begin
if a>b then max:=a else max:=b;
end;
 
var x1,y1,x2,y2,x3,y3,x4,y4,x5,y5,x6,y6,
    a1,a2,a3,x11,y11,x12,y12,x13,y13,x14,y14,s1,s2:integer;
begin
read(x1,y1,a1);
read(x3,y3,a2);
read(x5,y5,a3);
x2:=x1+a1;
y2:=y1+a1;
x4:=x3+a2;
y4:=y3+a2;
x6:=x5+a3;
y6:=y5+a3;
x11:=max(min(x1,x2),min(x3,x4));
x12:=min(max(x1,x2),max(x3,x4));
y11:=max(min(y1,y2),min(y3,y4));
y12:=min(max(y1,y2),max(y3,y4));
s1:=(x12-x11)*(y12-y11);
if s1<=0 then s2:=0
else
 begin
  x13:=max(min(x11,x12),min(x5,x6));
  x14:=min(max(x11,x12),max(x5,x6));
  y13:=max(min(y11,y12),min(y5,y6));
  y14:=min(max(y11,y12),max(y5,y6));
  s2:=(x14-x13)*(y14-y13);
 end;
write(s2);
end.

function min(a,b:integer):integer;
begin
if a<b then min:=a else min:=b;
end;
function max(a,b:integer):integer;
begin
if a>b then max:=a else max:=b;
end;
var x1,y1,x2,y2,x3,y3,x4,y4,x5,y5,x6,y6,
    a1,a2,a3,x11,y11,x12,y12,x13,y13,x14,y14,s:integer;
begin
read(x1,y1,a1);
read(x3,y3,a2);
read(x5,y5,a3);
x2:=x1+a1;
y2:=y1-a1;
x4:=x3+a2;
y4:=y3-a2;
x6:=x5+a3;
y6:=y5-a3;
x11:=max(min(x1,x2),min(x3,x4));
x12:=min(max(x1,x2),max(x3,x4));
y11:=max(min(y1,y2),min(y3,y4));
y12:=min(max(y1,y2),max(y3,y4));
if (x12-x11>0)and(y12-y11>0) then
s:=(x12-x11)*(y12-y11) else s:=0;
if s>0 then
 begin
  x13:=max(min(x11,x12),min(x5,x6));
  x14:=min(max(x11,x12),max(x5,x6));
  y13:=max(min(y11,y12),min(y5,y6));
  y14:=min(max(y11,y12),max(y5,y6));
  if (x14-x13>0)and(y14-y13>0) then
  s := (x14 - x13) * (y14 - y13) else s:=0;
 end;
write(s);
end.