2261101_ac_0ms_4k.pas

北大大牛代码 1240道题的原代码 超级权威

program A_funny_game;

var n: longInt;

begin
     Repeat
          Read(n);
          if (n=0) then Exit;
          if (n>=3) then Writeln('Bob');
          if (n<3)  then Writeln('Alice');
     Until n=0;
end.