Помогите составить блок-схему алгоритма нахождения длины окружности через радиус!

Question

Помогите составить блок-схему алгоритма нахождения длины окружности через радиус!

Answer 1

Var r:real;
begin
read(r);
writeln(2*3,14*r);
end.