Program exam1; {程序的首部} var r,c,s:integer; {程序的说明部分} Begin readln(r); {读入圆的半径r} c:=3*2*r; {求圆的周长c} s:=3*r*r; {求圆的面积s} writeln(c,s); {输出圆的周长与面积} End.