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

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

Определить периметр правильного n-угольника, описанного около окружности радиуса r.

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

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

uses crt;
var n:integer;
    r,p:real;
begin
clrscr;
repeat
write('Количество сторон n>2 n=');
readln(n);
until n>2;
repeat
write('Радиус вписанной окружности r>0 r=');
readln(r);
until r>0;
p:=n*2*r*sin(pi/n)/cos(pi/n);
write('Периметр=',p:0:2);
readln
end.

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

В начале кода подключается библиотека crt, которая обеспечивает работу с консолью.
Затем объявляются переменные n и r типа integer и real соответственно.
Далее идет блок repeat-until, где с помощью функции readln считывается значение переменной n. Условие продолжается до тех пор, пока n больше или равно 2.
Аналогичным образом считывается значение переменной r.
После этого вычисляется значение переменной p как произведения n, 2, r и sin(pi/n)/cos(pi/n).
Выводится значение переменной p с помощью функции write.
Затем с помощью функции readln происходит считывание входных данных для завершения цикла repeat.