Определить периметр p правильного многоугольника если задан радиус вписанной окружности r и количество углов n: p=n*a, где a=2*r*tg(180градусов/n). это все в программе паскаль.записать на языке паскаль.

//Pascal ABC.NET v3.1 сборка 1172

Var
 n:integer;
 r,p:real;
begin
 read(n,r);
 p:=n*2*r*tan(pi/n);
 writeln(p);
end.

Пример ввода:
6
4
Пример вывода:
27.712812921102