Дан радиус окружности.найти длину окружности и площадь круга(код pascal)

Var r,c,s:real;
begin
readln(r);
c:=2*pi*r;
s:=pi*r*r;
writeln('C = ',c:5:2,' S = ',s:5:2);
end.

Пример:
3
C = 18.85 S = 28.27