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