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

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

begin
writeln(Введите радиус окружности:);
readln(r);
С:=pi * (2 * r);
S:=pi * sqr(r);
writeln(Длина окружности с радиусом , r, одинакова , С);
writeln(Площадь круга с радиусом , r, равна , S);
end.