Задана сторона а равностороннего треугольника. Вычислите высоту треугольника и его площадь. Требуется решение задачи в Pascal.

Program zadanie;

var a, b, c:real;

begin

writeln ('введите сторону равностороннего треугольника');

readln (a);

b:=sqrt ((a*3/2) * ((a*3/2) - a) * ((a*3/2) - a) * ((a*3/2) - a));

c:=2*b/a;

writeln ('площадь данного тругольника ', b,' высота равна ', c);

end.