Написать программу. Данн радиус окружности. найти длину окружности и его площадь

varpi, R:real;beginpi := arccos(-1);write('введите радиус -> ');Readln(R);Writeln('C = ', 2*pi*R);Writeln('S = ', pi * R * R);end.Пример:введите радиус -> 3C = 18.8495559215388S = 28.2743338823081