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

Предыдущий
вопрос Следующий
вопрос

program Hexagon;
var
radius, side, area: real;
begin
// Ввод радиуса окружности
write('Введите радиус окружности: ');
readln(radius);

// Вычисление стороны правильного 6-угольника
side := 2 radius sin(pi / 6);

// Вычисление площади 6-угольника
area := 3 sqrt(3) power(side, 2) / 2;

// Вывод площади на экран
writeln('Площадь правильного 6-угольника = ', area:0:2);
end.