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

var
pi, R:real;
begin
pi := arccos(-1);
write('введите радиус -> ');Readln(R);
Writeln('C = ', 2*pi*R);
Writeln('S = ', pi * R * R);
end.

Пример:
введите радиус -> 3
C = 18.8495559215388
S = 28.2743338823081