СОСТАВЬТЕ Программку В ПАСКАЛЬ ДЛЯ ВЫЧИСЛЕНИЯ:Отыскать радиус окружности, описанной около

радиус описанной вокруг правильного n-угольника окружности находится по формуле:

фактически программка:

var

   n : integer; // количество сторон (углов)

   a : integer; // длина стороны

begin

   write('введите количество сторон n= ');

   readln(n);

   write('введите длину стороны a= ');

   readln(a);

   writeln('радиус описанной окружности R=', a/2*sin(180/n));

end.