Составьте блок-схему и программу
на языке Pascal для вычисления длин высот треугольника, у которого длины
сторон a, b, c (a, b, c вводятся с клавиатуры).

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.---Фух... Удачи:)