СОСТАВЬТЕ ПРОГРАММУ В ПАСКАЛЬ ДЛЯ ВЫЧИСЛЕНИЯ:Найти радиус окружности, описанной около...

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

$R=\frac{a}{2}·sin(\frac{180°}{n} )$

собственно программа:

var

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

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

begin

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

readln(n);

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

readln(a);

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

end.