составить программу для нахождения высоты равностороннего треугольника, если сторона равна а
Паскаль
Заранее спасибо

На держиprogram Something;var a, h: real;beginwriteln('Введите сторону ' );readln(a);h:=sqrt(a*a - 0.25*a*a);writeln('Высота равна ' ,h:2:3);end.