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

program zz1;
var a, S:real; // задаем переменные не целого типа
begin
write( введите сторону равностороннего треугольника );
read(a);
s:=(sqrt(3) * a * a) / 4; // находим площадь равностороннего треугольника
writeln(площадь равностороннего треугольника = , s:5:2); // выводим ответ в формате 5 знаков для всего числа и два знака после точки

end.