PascalABC .дан периметр равностороннего треугольника P.Найти его сторону a площадь S

var p,a,s:real;beginwrite('p = ');readln(p);a:=p/3;s:=a*a*sqrt(3)/4;writeln('a = ',a:5:2,' s = ',s:5:2);end.Пример:p = 9a =  3.00 s =  3.90