Pascalabc .дан периметр равностороннего треугольника p.найти его сторону a площадь s

Var p,a,s:real;
begin
write('p = ');
readln(p);
a:=p/3;
s:=a*a*sqrt(3)/4;
writeln('a = ',a:5:2,' s = ',s:5:2);
end.

Пример:
p = 9
a =  3.00 s =  3.90