Var a, b, c, S, p, Ha, Hb, Hc: Real;
begin
     readln(a, b, c);
     if ((a = 0) or (b = 0) or (c = 0)) then
        writeln('Error')
     else
         begin
              p := (a + b + c) / 2;
              S := Sqrt(p*(p-a)*(p-b)*(p-c));
              Ha := 2 * S / a;
              Hb := 2 * S / b;
              Hc := 2 * S / c;
              writeln('Ha = ', Ha : 4 : 5);
              writeln('Hb = ', Hb : 4 : 5);
              writeln('Hc = ', Hc : 4 : 5);
         end;
end.
---
Фух... Удачи:)