ac1079.pas

来自「某牛人写的acm.tongji.edu.cn上大部分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.