Помогите написать программу на паскале 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:=12*P*R;
End.
Всякие там выводы на экран, сами сделаете)