Вычисление периметра и площади равностороннего треугольника по стороне — Pascal(Паскаль)

uses crt;
var
a:real;
procedure TrianglePS(l:real);
var
s,p:real;
begin
  s:=l*l*(sqrt(3)/4);
  p:=3*l;
  writeln('Площадь  равна ',s:3:3);
  writeln('Периметр равен ',p:3:3);
end;
begin
  clrscr;
  write('введите сторону равностороннего треугольника ');
  readln(a);
  TrianglePS(a);
  textcolor(10);
  write('программа работу закончила,нажмите ENTER');
  readln;
end.