описать процедуру вычисляющую периметр и площадь равностороннего треугольника по данной стороне А.

[Aimet]

описать процедуру вычисляющую периметр и площадь равностороннего треугольника по данной стороне А. Вычислить периметр и площади трех данных треугольников.
Программу нужно выполнить на языке PascalABC.

[rubius2008]

собственно процедура

procedure ps(a:real;var p,s:real);
begin
   p:=3*a;
   s:=sqrt(3)*sqr(a)/4;
end;

вызов, вычисление периметра и площади для треугольника со стороной =3

ps(3,p,s);