Uses Crt;
Var x1,x2,x3,y1,y2,y3 : 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);
 If (x3-x1)*(y2-y1)-(y3-y1)*(x2-x1)=0
 Then Write('лежит')
 Else Write('не лежит');
 Readln;
End.