分析：
程序要先输入半径R,然后求周长c和面积s,最后输出c和s.
源程序如下：
program circle;
　const PI=3.14159;
　var r,c,s:real;
begin
　write('Enter R=');readln(r);
　c:=2*pi*r;
　s:=pi*sqr(r);
　writeln('c=',c:10:2);
　writeln('s=',s:10:2);
end.
　　在程序中,为了输出实型周长C和面积S时,按照小数形式输出,采用了指定双场宽格式.