p2201.pas

来自「高手写的所有acm例程 在acm.zju.edu.cn 上的题目的例程」· PAS 代码 · 共 15 行

PROGRAM p2201;

VAR
        a,b     :integer;
        n       :integer;
        i       :integer;

BEGIN
readln(n);
for I:=1 to n do
        begin
        readln(a,b);
        if a<b then writeln('NO BRAINS') else writeln('MMM BRAINS');
        end;
END.