Найти длину окружности L и площадь круга S заданного радиуса R: L = 2·π·R, S = π·Rв квадрате В качестве значения π использовать 3.14. В PascalABC

program zz1;

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

begin

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

read (r);

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

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

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

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

end.