Напишите программу(Паскаль) Дан радиус окружности 10см найти длину окружности

Question

Напишите программу(Паскаль) Дан радиус окружности 10см найти длину окружности

Answer 1

// PascalABC.NET 3.3, сборка 1576 от 16.11.2017
// Внимание! Если программа не работает, обновите версию!
// Можно ввести любое число
begin
var r:= ReadInteger('r =');
Writeln('P =', 2*r*arccos(-1):0:5);
end.