program b3;
var x1,x2,x3,x4,y1,y2,y3,y4:real;
d,dx,dy:real;
min,max:real;
begin
write('введите x1='); readln(x1);
write('введите y1='); readln(y1);
write('введите x2='); readln(x2);
write('введите x3='); readln(x3);
write('введите y3='); readln(y3);
write('введите x4='); readln(x4);
y2:=0; y4:=0;
if x1>x3 then max:=x1
else max:=x3;
if x2>x4 then min:=x4
else min:=x2;
dx:=min-max;
if y1>y3 then dy:=y3
else dy:=y1;
d:=dx*dy;
if d=0 then writeln('прямоугольники не пересекаются')
else writeln('прямоугольники пересекаются и площадь пересечения =',d:4);
end.