跪求Free Pascal For NOI教程

const pi=3.1415927;

var a,b:real;

begin

readln(a);{输入半进}

b:=a*a*pi;

writeln(b);{输出面积}

end.

我的博客上有很多信息学奥赛的东西、先去看看、喜欢的话别忘给分、