Определить периметр P правильного многоугольника если задан радиус вписанной окружности R и количество углов N: P=N*A, где A=2*R*tg(180градусов/N). Это все в программе Паскаль.Записать на языке ПАСКАЛЬ.

Предыдущий
вопрос Следующий
вопрос

program PerimeterOfRegularPolygon;

var
R, N: Integer;
A, P: Real;

begin
write('Введите радиус вписанной окружности R: ');
readln(R);

write('Введите количество углов N: ');
readln(N);

A := 2 R tan(pi / N);
P := N * A;

writeln('Периметр правильного многоугольника равен: ', P:0:2);

end.