Определить Периметр правильного n-угольника описанного около окружности радиуса R - Pascal

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

Определить Периметр правильного n-угольника описанного около окружности радиуса R n=5 R=28,5 где n-колличество сторон, a_n-одна сторона. формулы для решения a_n=2*R*tg(180/n) P=a_n*n Нужна в форме Паскаля Заранее спасибо!!!

Решение задачи: «Определить Периметр правильного n-угольника описанного около окружности радиуса R»

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

var n,R,a,P,i:real;
Begin
i:=3.14;
writeln('vvedite n');
readln(n);
writeln('vvedite R');
readln(R);
a:=2*R*(sin(i/n)/cos(i/n));
P:=a*n;
writeln('a= ', a:5:2);
writeln('P= ', p:5:2);
readln;
End.

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

В начале кода объявляются переменные n, R, a, P и i, которые будут использоваться для решения задачи.
Затем происходит чтение значения переменной n с помощью функции readln.
После этого происходит чтение значения переменной R с помощью функции readln.
Далее, внутри цикла, значение переменной i устанавливается равным 3.14.
Затем, с помощью функции writeln, выводится сообщение 'vvedite n', чтобы пользователь мог ввести значение переменной n.
Аналогично, выводится сообщение 'vvedite R', чтобы пользователь мог ввести значение переменной R.
После этого, значение переменной a вычисляется как 2R(sin(i/n)/cos(i/n)).
Значение переменной P вычисляется как a*n.
Выводится значение переменной a с точностью до 5 знаков после запятой с помощью функции writeln.
Аналогично, выводится значение переменной P с точностью до 5 знаков после запятой с помощью функции writeln.
Код завершается, и пользователю предлагается нажать любую клавишу, чтобы выйти из программы.