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

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