【文件属性】：
文件名称：Free Pascal
文件大小：293KB
文件格式：PPT
更新时间：2013-12-23 16:55:32
Free Pascal教程
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.