Написать программу на паскале abc. 1)вычислить периметр и площадь правильного n-угольника, описанного около окружности радиуса r.

Program Main;
Var n,R,P,S:Real;
Begin
Readln(R,n);
P:=(n*2*R*(sin(180)\cos(180))\n;
S:=1\2*P*R;
End.
Всякие там выводы на экран, сами сделаете)