Дана сторона равностороннего треугольника. Отыскать площадь и периметр этого треугольника. Данные

program zz1;
var a, d, S:real; // задаем переменные не целого типа
begin
write( введите сторону равностороннего треугольника );
read(a);
d:=3 * a; // обретаем периметр треугольника

s:=(sqrt(3) * a * a) / 4; // обретаем площадь равностороннего треугольника
write(площадь равностороннего треугольника = ,s:5:2, периметр равностороннего треугольника = ,d:5:2); // выводим ответ в формате 5 знаков для всего числа и два знака после точки

end.