Напишите программу, находящую высоту
равностороннего треугольника. (паскаль)

Объяснение:

var

 a, h : Double;

begin

 Read(a);    // считываем длину стороны треугольника

 h := a*sqrt(3)/2;

 writeln('Высота равностороннего треугольника =', FloatToStr(h));

end;