Не могу решить задачу, Описать процеруду Опции

[6ac9k]

Описать процеруду Heights (Ax, Ay, Bx, By, Cx, Cy, hA, hB, hC), находящую высоты hA, hB, hC треугольника ABC, проведенные соответственно из вершин A,B,C. С помощью процедуры найти высоты треугольников ABC, ABD, ACD, если данны координаты точек A, B, C, D.
Я так понимаю координаты нужно ввести с клавиатуры...

[мисс_граффити]

if (s=0) or (s1=0) or (s2=0) then
      begin
       writeln ('ssory takogo treug ne suchestvuet');
       writeln ('proverte pravilnost'' coordinat');
      end;

мне вот это место не нравится.
нельзя число real сравнивать с помощью "равно"
лучше задать какой-то доверительный интервал...
типа так:

if abs(s)<0.001 then...