Для фигур: равностороннего треугольника, квадрата, правильных 5-угольника, 6-угольника, ..., N-угольника дана длина стороны А (одна и та же). Вычислить площади S этих геометрических фигур. (Pasсal)

Var

a, S: real;

n: integer;

begin

Write ('Введите через пробел длину стороны многоугольника и число сторон: ');

Readln (a, n);

S : = n * sqr (a) / (4 * tan (Pi / n));

Writeln ('Площадь многоугольника равна ', S:0:4);

end.

Тестовое решение:

Введите через пробел длину стороны многоугольника и число сторон: 5 10

Площадь многоугольника равна 192.3552