Составить алгоритм и программу вычисления длины окружности,если задан её радиус.(L=6.28*R)

program zz1;
var r, L:real; // задаем переменные не целого типа
begin
write(введите начальное значение радиуса окружности ); // вводим с клавиатуры начальное значение радиуса окружности
read(r);
L:=6.28 * r; // вычисляем длину окружности по данной формуле
write( приобретенное значение длины окружности = , L:5:2); // выводим ответ в формате 5 символов для всего числа и два знака после запятой
end.