Составить программу вычисления радиусов r,R вписанной о описанной окружности около правильного многоугольника со стороной a .Вычисление радиусов оформить в виде подпрограммы процедуры- Pascal(Паскаль)

program prg;
uses crt;
var r,a,l,s:real; n:integer;
begin
     clrscr;
     readln(n);{количество углов многоугольника}
     readln(a);{длина стороны многоугольника}
 
     r:= a/(2*sin(6.28/(2*n)));{радиус дуги, образованой соседними углами}
     l:=6.28*r/n; {длина этой дуги}
     s:=n*l; {длина окружности, составленной из n таких дуг}
 
     writeln('R=',s/6.28); {радиус окружности}
     readln;
end.

uses crt;
procedure Radius(a:real; n:integer);
var R_op,r_v:real;
begin
R_op:=a/(2*sin(pi/n));
r_v:=R_op*cos(pi/n);
Writeln('R(описанный)=',R_op:0:1);
Writeln('r(вписанный)=',r_v:0:1);
end;
var a:real;
    n:integer;
begin
ClrScr;
Write('a=');
Readln(a);
Write('n=');
Readln(n);
Radius(a,n);
Readln;
end.