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.

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