дан радиус окружности, описанной около правильного 6-угольника. Найти площадь. через паскаль

var s,r:real;begin write('введите радиус описанной окружности'); readln(r); s:=3*sqrt(3)*r*r/2; writeln('площадь равна= ',s:6:2);end.и все