ac1079.pas

来自「同济大学 Online在线题库 AC源代码合集 程序设计竞赛必看资料」· PAS 代码 · 共 21 行

program tju1079;
var
  r:byte;
  c:char;
begin
  repeat
    r:=0;
    repeat
      read(c);
      r:=(r+ord(c)) mod 3;
    until seekeoln;
    readln;
    if r=0 then
      writeln('King will win.')
    else begin
      writeln('MaoLaoDa will win.');
      writeln(r);
    end;
  until seekeof;
end.