Помогите написать программу на паскале ABC.
1)Вычислить периметр и площадь правильного n-угольника, описанного около окружности радиуса R.

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