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

На держи
program Something;
var a, h: real;

begin
writeln('Введите сторону ' );
readln(a);
h:=sqrt(a*a - 0.25*a*a);
writeln('Высота равна ' ,h:2:3);

end.