{ Пересекаются ли отрезки задаными координатами (x1;y1),(x2;y2),(x3;y3),(x4;y4). }

uses crt;
var x1,x2,x3,x4,y1,y2,y3,y4,
    l,l1,l2,p,p1,p2 : real;
begin
   clrscr;
   write('x1=');readln(x1);
   write('y1=');readln(y1);
   write('x2=');readln(x2);
   write('y2=');readln(y2);
   write('x3=');readln(x3);
   write('y3=');readln(y3);
   write('x4=');readln(x4);
   write('y4=');readln(y4);
   if x1l2 then l:=l1  else l:=l2;
   if x1>x2 then p1:=x1 else p1:=x2;
   if x3>x4 then p2:=x3 else p2:=x4;
   if p1>p2 then p:=p2  else p:=p1;
   if l<=p  
   then write('пересекаются')
   else write('не пересекаются');
   readln;
end.