求一个FREE PASCAL的数据

var r:real;
const pi=3.1416;//有的版本的pascal不能直接用pi常量，所以定义一下
begin
read(r);
writeln(pi*2*r);
writeln(pi*r*r);
end.
顺便说一句：楼上的怎么没有read语句呢？没有的话怎么输入

var
r:real;
begin
writeln(pi*2*r); {周长}
writeln(pi*r*r); {面积}
end.
要加分哦~
o(∩_∩)o...

program ex1;
const
pi=3.1415926535;{如果你的fpc软件可以直接用pi常量的话，可以不用定义}
var
r:real;
begin
readln(r);
writeln(2*pi*r);{周长}
writeln(pi*r*r);{面积}
end.

program run(input,output);
const
pi=3.14159265357;
var
r:real;
begin
read(r);
writeln('C:',2*r*pi);
writeln('S:',r*r*pi);(加'c:'和's:'区别一下下)
readln;(停屏)
end.
看效果，就知道要选谁！^_^