用Freepascal求已知一个圆的半径，求解该圆的面积和周长

用Freepascal求已知一个圆的半径，求解该圆的面积和周长

无文件输入及输出版本：
program circle;
const pi=3.14;
var r:longint;
S,C:longint;
begin
readln(r);
S:=pi*r*r;
C:=pi*2*r;
writeln('S=',S);
writeln('C=',C);
end.
有文件输入及输出版本(输入文件名为circle.in，输出文件名为circle.out)：
program circle;
const pi=3.14;
var r:longint;
S,C:longint;
begin
assign(input,'circle.in');reset(input);
assign(output,'circle.out');rewrite(output);
readln(r);
S:=pi*r*r;
C:=pi*2*r;
writeln('S=',S);
writeln('C=',C);
close(input);
close(output);
end.

var r,c,s:real; begin readln(r); c:=2*r*pi; s:=r*r*pi; write(c,s); readln end.

var r:longint; s，c:real; begin readln(r); s:=3.14*r*r； c:=3.14*2*r; writeln('s:',s,'c:',c); end.