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

var   a, b,p,s,r,h: real; begin   readln(p);   a:=p/3;   h:=sqrt(sqr(a)-sqr(a/2));   s:=a*h/2;   r:=a/3*sqrt(3);   writeln('высота:', h);   writeln('площадь:', s);   writeln('Длина описанной дуги:',2*pi*r); end. Тестовое решение: 15 высота:4.33 площадь:10.82 Длина описанной дуги:18.137