Олимпиадная задача для школьников: Определить пересекаются или нет два отрезка координаты начала и конца которых вводятся с клавиатуры.
Решение просто прелесть:
...
ReadLn(Ax1,Ay1,Ax2,Ay2,Bx1,By1,Bx2,By2);
...
Line(Ax1,Ay1,Ax2,Ay2);
Line(Bx1,By2,Bx2,By2);
OutText('А теперь посмотри пересекаются они или нет');
....
Пришлось поставить половину баллов за оригинальность...