Помогите пожалуйста, найти алгоритм нахождения перемитра круга
const pi=3.14;
var
r,l:real;
begin
write('Введите радиус = ');
readln(r);
l:=2*pi*r;
writeln('Длина окружности = ',l);
readln;
end.