Определить общую проекцию этих отрезков на ось абсцисс

var
x1,x2,x3,x4,max1,max2,min1,min2,t1,t2,s:integer;
begin
writeln('koordinaty 1 otreska');
readln(x1,x2);
writeln('koordinaty 2 otreska');
readln(x3,x4);
if x1>x2 then
begin
max1:=x1;
min1:=x2;
end
else
begin
max1:=x2;
min1:=x1;
end;
if x3>x4 then
begin
max2:=x3;
min2:=x4;
end
else
begin
max2:=x4;
min2:=x3;
end;
if max1<max2 then
begin
t1:=max1;
t2:=min1;
max1:=max2;
min1:=min2;
max2:=t1;
min2:=t2;
end;
if max2<=min1 then s:=max1-min1+max2-min2
else if min2>=min1 then s:=max1-min1
else s:=max1-min1+max2-min2-(max2-min1);
writeln(s);
readln;
end.

var
x1,x2,x3,x4,max1,max2,min1,min2,t1,t2:integer;
y1,y2,y3,y4,s:integer;
begin
writeln('vvedite koordinaty dvuh otreskov');
writeln('cherez probel: x1 y1 x2 y2 x3 y3 x4 y4');
read(x1,y1,x2,y2,x3,y3,x4,y4);
if x1>x2 then
begin
max1:=x1;
min1:=x2;
end
else
begin
max1:=x2;
min1:=x1;
end;
if x3>x4 then
begin
max2:=x3;
min2:=x4;
end
else
begin
max2:=x4;
min2:=x3;
end;
if max1<max2 then
begin
t1:=max1;
t2:=min1;
max1:=max2;
min1:=min2;
max2:=t1;
min2:=t2;
end;
if max2<min1 then s:=-1
else if max2=min1 then s:=0
else if min2>min1 then s:=max2-min2
else s:=max2-min1;
writeln(s);
end.