比赛代码 - COGS

比赛	NOIP2008集训模拟3	评测结果	AAAAAAAAAA
题目名称	硬币游戏	最终得分	100
用户昵称	elysian	运行时间	0.000 s
代码语言	Pascal	内存使用	0.00 MiB
提交时间	2008-11-12 11:23:38

显示代码纯文本

program elysian;
const
fin='coins.in';fout='coins.out';
var
n,a,i:longint;
f1,f2:text;
begin
assign(f1,fin);reset(f1);
assign(f2,fout);rewrite(f2);
read(f1,n);
for i:=1 to n do
begin
readln(f1,a);
if a>=3 then writeln(f2,'Bob')
else writeln(f2,'Alice');
end;

close(f1);
close(f2);
end.