Вычислите высоту треугольника, опущенную на сторону a, по известным значениям длин его сторон a, b,c. программу для решения в паскале, пожалуйста.  

Program treygolnik; Var A, B, C: integer; H, P: real; Begin Write ('Введите сторону А'); Read (A); Write ('Введите сторону B'); Read (B); Write ('Введите сторону C'); Read (C); P:= (A + B + C)/2; H:= (2*(Sqr(P * (P - A) * (P - B) * (P - C))) / A; Write ('Длина высоты Н =' , Н); End.