составить алгоритм и программу вычисления длины окружности,если задан её радиус.(L=6.28*R)

//PascalABC.NET 3.1 сборка 1200
begin
    var r := ReadInteger('r = ');
    Writeln(6.28*r);
end.