Найти длину окружности L и площадь круга S заданного радиуса R: L = 2·π·R, S = π·R 2

program zz1;

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

begin

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

read (r);

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

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

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

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

end.