Хепланите плиз Написать программу на языке Pascal  Вариант 4

var pi,inR: real; function a(RR:real; n:integer):real; begin  a := 2*RR*sin(pi/n) end; function r(RR:real; n:integer):real; begin  r := RR * cos(pi/n) end; function S(RR:real; n:integer):real; begin  S := a(RR,n) * n * r(RR,n) / 2 end; begin  pi := 4 * arctan(1);  read(inR);  writeln(S(inR,10));  writeln(S(inR,50));  writeln(S(inR,100)) end.