помогите пожалуйста, найти алгоритм нахождения перемитра круга

const pi=3.14;

var

r,l:real;

begin

write('Введите радиус = ');

readln(r);

l:=2*pi*r;

writeln('Длина окружности = ',l);

readln;

end.