Отношение Радиуса Опис. Окр к Периметру Правильного N уг.

function rad(a:real):real;
begin
Result:=(a*Pi)/180;
end;
var
a:integer;
c:real;
const
b= 1;
Begin
for a:= 1 to 10000 do
  begin
  write(a);
  write('  ');
  c:=((sin((rad(180/a))))*b)*2*a;
  c:=c/2;
  writeln(c);
  end;
end.