Заданы координаты вершин прямоугольника: (х1, y1), (х2, y2), (х3, у3), (х4,

var w,h,x,y,x1,y1,x2,y2,n,i,c,buf:longint;
nbsp;nbsp;nbsp;nbsp;a:array[-100..100,-100..100] of 0..1;
begin
readln(x1,y1,x2,y2);
if y1gt;y2 then begin
buf:=x1;
x1:=x2;
x2:=buf;
buf:=y1;
y1:=y2;
y2:=buf;
end;
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;for y:=y1+1 to y2 do
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;for x:=x1+1 to x2 do
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;a[y][x]:=1;
nbsp;nbsp;c:=0;
nbsp;nbsp;for y:=0 to 100 do
nbsp;nbsp;nbsp;nbsp;for x:=0 to 100 do
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;c:=c+a[y][x];
nbsp;nbsp;write(c);
end.