program Project2; {$APPTYPE CONSOLE} var x1,y1,x2,y2,x3,y3,x4,y4, p1p3_p1p2,p1p4_p1p2,p3p1_p3p4,p3p2_p3p4:real; procedure s(var a,b:real); var c:real; begin c:=a; a:=b; b:=c; end; begin readln(x1,y1,x2,y2,x3,y3,x4,y4); if x1