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.