pascal编程给出一个整数n,接下来有n行,每行一个整数r,表示圆的半径

var
i,n,r:longint;
s:single;
begin
readln(n);
for i:=1 to n do
begin
readln(r);
writeln(r*r*3.1415926:0:2);
end;
end.