Составить алгоритм и программку для решения задачи найдите длину окружности L

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