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

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