Объяснение:
var
a, h : Double;
begin
Read(a); // считываем длину стороны треугольника
h := a*sqrt(3)/2;
writeln('Высота равностороннего треугольника =', FloatToStr(h));
end;
