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

Найдем площадь равностороннего треугольника по формуле: [latex]S = \frac{1}{2} ah[/latex], где [latex]h = \sqrt{a^{2} - \frac{a^{2}}{4} } = \frac{ \sqrt{3} }{2} a[/latex] [latex]S = \frac{ \sqrt{3} }{4} a^{2} [/latex] Составим программу: var a, h, s: real; begin   read(a);   h := sqrt(3) / 2 * a;   s := 1 / 2 * a * h;   writeln('h = ', h : 0 : 1);   writeln('S = ', s : 0 : 1); end.