program bai_giai;
var f,g:text;
    s:string;
function kt(st:string):boolean;
begin
    if length(st)<>5 then exit(false);
    if (not(st[1] in ['A'..'Z'])) or (not(st[2] in ['A'..'Z'])) then exit(false);
    if (not(st[3] in ['0'..'9'])) or (not(st[4] in ['0'..'9'])) or (not(st[5] in ['0'..'9'])) then exit(false);
    if (st[3]='0') and (st[4]='0') and (st[5]='0') then exit;
    exit(true);
end;
BEGIN
    Assign(f,'MASO.INP');  reset(f);
    Assign(g,'MASO.OUT');  rewrite(g);
    while not eof(f) do
        begin
            readln(f,s);
            if kt(s)=false then writeln(g,s);
        end;
    close(f); close(g);
END.

uses crt;
var f,f1:text; s:string; kt:boolean; 
begin
clrscr;
   assign(f,'MASO.INP');reset(f);
   assign(f1,'MASO.OUT');rewrite(f1);
      while not(eof(f)) do 
         begin
            readln(f,s); 
            kt:=true;
            if (length(s)<>5)or
            (not(s[1] in ['A'..'Z']))or(not(s[2] in ['A'..'Z']))or(not(s[2] in ['A'..'Z']))or 
            (not(s[3] in ['0'..'9']))or(not(s[4] in ['0'..'9']))or(not(s[5] in ['0'..'9']))or(copy(s,3,3)='000')
            then writeln(f1,s); 
         end; 
   close(f1);
   close(f);
end.