Вычислить площадь и периметр правильного N-угольника, описанного около окружности радиуса R - PascalABC.NET

Формулировка задачи:

Вычислить площадь и периметр правильного N-угольника, описанного около окружности радиуса R (рассмотреть N-целого типа, R-вещественного типа).

Решение задачи: «Вычислить площадь и периметр правильного N-угольника, описанного около окружности радиуса R»

Листинг программы

begin
  var r := ReadLnReal('Радиус вписанной окружности: R =');
  var n := ReadLnInteger('Число сторон правильного N-угольника: N =');
  var a := tan(Pi/n)*r*2;
  WriteLn('Длина стороны: a = ', a);
  WriteLn('Площадь: S = ', r*n*a/2);
  WriteLn('Периметр: P = ', a*n);
end.

Объяснение кода листинга программы

Программа считывает радиус вписанной окружности и число сторон правильного N-угольника с помощью функций ReadLnReal и ReadLnInteger соответственно.
Затем программа вычисляет длину стороны правильного N-угольника, используя формулу a = tan(Pi/n)r2.
Далее программа выводит длину стороны правильного N-угольника с помощью функции WriteLn.
Затем программа вычисляет площадь правильного N-угольника, используя формулу S = rna/2, и выводит результат с помощью функции WriteLn.
Наконец, программа вычисляет периметр правильного N-угольника, используя формулу P = a*n, и выводит результат с помощью функции WriteLn.