Втурбо паскалі виконайте ! використовуючи підпрограму обчислити довжину кола радіуса 34.2 м.

Function CirclePerimeter(r: real): real;
begin
    CirclePerimeter := 2 * Pi * r;
end;

begin
    writeln(CirclePerimeter(34.2));
end.