记录编号	7909	评测结果	AAAAAAAAAA
题目名称	硬币游戏	最终得分	100
用户昵称	EnAsn	是否通过	通过
代码语言	Pascal	运行时间	0.031 s
提交时间	2008-11-12 14:59:18	内存使用	0.19 MiB

program ex;
type
 ss=array[-100..10000]of longint;
var
 a,f:ss;
 f1,f2:text;
 k,n,i:integer;
 flag:boolean;
procedure init;
 var
  i:integer;
 begin
  assign(f1,'coins.in');
  assign(f2,'coins.out');
  reset(f1);
  rewrite(f2);
  readln(f1,k);
  for i:=1 to k do
   readln(f1,a[i]);
  close(f1);
 end;
procedure main;
 var
  i:integer;
 begin
  for i:=1 to k do
    if a[i]<=2 then writeln(f2,'Alice')
          else writeln(f2,'Bob');

 end;
begin
 init;
 main;
 close(f2);
end.