Дана сторона равностороннего треугольника. найти площадь треугольника паскаль

program zz1;

var a, S:real; / / задаем переменные не целого типа

begin

write (' введите сторону равностороннего треугольника ');

read (a);

s: = (sqrt (3) * a * a) / 4; / / находим площадь равностороннего треугольника

writeln ('площадь равностороннего треугольника = ', s:5:2); / / выводим ответ в формате пять знаков для всего числа и два знака после точки

end.