Программа: Вычислить площадь и периметр правильного N-угольника, описанного около окружности радиуса R (рассмотреть N — целого типа,

begin
  var r := ReadLnReal('Радиус вписанной окружности: R =');
  var n := ReadLnInteger('Число сторон правильного N-угольника: N =');
  var a := tan(Pi/n)*r*2;
  WriteLn('Длина стороны: a = ', a);
  WriteLn('Площадь: S = ', r*n*a/2);
  WriteLn('Периметр: P = ', a*n);
end

45 вот и все легко и понятно