uses crt; var x1,x2,x3,x4,y1,y2,y3,y4,punkt1,punkt2,punkt3,punkt4:integer; begin writeln('Sisesta esimese punkti x koordinaat'); readln(x1); writeln('Sisesta esimese punkti y koordinaat'); readln(y1); writeln('Sisesta teise punkti x koordinaat'); readln(x2); writeln('Sisesta teise punkti y koordinaat'); readln(y2); writeln('Sisesta kolmanda punkti x koordinaat'); readln(x3); writeln('Sisesta kolmanda punkti y koordinaat'); readln(y3); writeln('Sisesta neljanda punkti x koordinaat'); readln(x4); writeln('Sisesta neljanda punkti y koordinaat'); readln(y4); punkt1:=x2-x1; punkt2:=y2-y1; punkt3:=x4-x3; punkt4:=y4-y3; if punkt1/punkt2=punkt3/punkt4 then writeln('L„bi punktide 1-2 ja 3-4 tämmatud jooned on paralleelsed.') else writeln('L„bi punktide 1-2 ja 3-4 tämmatud jooned ei ole paralleelsed.'); readln; end.