Составьте алгоритм длины окружности,если известен её радиус.

Var c,r:real;
const pi=3.1415;
begin
write('введите радиус окружности');
read(r);
c:=2*pi*r;
writeln('длина окружности равна', c);
end.