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

program zz1;

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

begin

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

read (r);

s: = pi * r * r; / / вычисляем площадь круга по формуле

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

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

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

end.