Напишите программу , определяющую длину окружности по заданному с клавиатуры радиусу r . , котики

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