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

program zz1;

var r, L:real; / / задаем переменные не целого типа

begin

write ('введите исходное значение радиуса окружности '); / / вводим с клавиатуры исходное значение радиуса окружности

read (r);

L:=6.28 * r; / / вычисляем длину окружности по заданной формуле

write (' полученное значение длины окружности = ', L:5:2); / / выводим ответ в формате пять знаков для всего числа и два знака после запятой

end.