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

var a,b,c,h,p:real;beginwrite('Введите a, b, c: ');readln(a,b,c);p:=(a+b+c)/2;h:=2*sqrt(p*(p-a)*(p-b)*(p-c))/a;writeln('h=',h);end.