Ввод а - сторона равностороннего треугольника
Найти периметр и площадь
(Процедуры или функцию использовать )

program tri;

var a:real;

function perimetr(side:real):real;

begin

   perimetr := 3 * side;    

end;

function square(side:real):real;

begin

   square := sqrt(3) * sqr(side) / 4;

end;

begin

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

readln(a);

writeln('Периметр треугольника: ',perimetr(a):4:4);

writeln('Площадь треугольника: ',square(a):4:4);

end.