Информатика, pascalabc, написать программу: вычислить площадь и периметр правильного n-угольника, описанного около окружности радиуса r (рассмотреть n-целого типа, r-вещественного типа)

Var n:integer;
  s,p,r:real;

begin
  readln(n,r);
  p:=2*n*tan(Pi/n);
  s:=p*r/2;
  writeln( 'Периметр ', p);
  writeln( 'Площадь  ', s);
end.