Дан радиус окружности. Составьте программу для вычисления длины окружности и площади круга.

var

r:real; - переменная для хранения радиуса.

C:real; - переменная для хранения длины окружности.

S:real; - переменная для хранения площади круга.

begin

writeln ('Введите радиус окружности:');

readln (r);

С:=pi * (2 * r);

S:=pi * sqr (r);

writeln ('Длина окружности с радиусом ', r, ' равна ', С);

writeln ('Площадь круга с радиусом ', r, ' равна ', S);

end.