Дана сторона равностороннего треугольника. Найти площадь и периметр этого треугольника. Данные ввести с клавиатуры. Результаты вычисления вывести в одной строке, но в разных зонах.

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); / / выводим ответ в формате пять знаков для всего числа и два знака после точки

end.