pascal一道题求圆的面积

题目

pascal一道题求圆的面积
给出一个整数n,接下来有n行,每行一个整数r,表示圆的半径
输入
给出一个整数n,接下来有n行,每行一个整数r,表示圆的半径
输出
输出n行,每行一个实数s,表示圆的面积,保留两位小数

答案

program circle;
var
  n,i,r:integer;
begin
  readln(n);
  for i:=1 to n do
     begin
       readln(r);
       writeln(3.14159*r*r:0:2);
     end;
end.

从时间和空间上看我的代码更优秀