program ii; var a, pom: string[50]; rok, mesiac, den, code, k: integer; i,j: longword; chlapec: boolean; begin repeat readln(a); chlapec := true; if (a <> 'end') then begin if length(a) = 10 then begin pom:= copy(a, 0, 2); val(pom, rok, code); if (rok < 54) and (rok > 19) then begin pom := copy(a, 3, 2); val(pom, mesiac, code); if (mesiac > 12) then begin mesiac := mesiac - 50; chlapec := false; end; if (mesiac > 0) and (mesiac < 13) then begin pom := copy(a, 5, 2); val(pom, den, code); case mesiac of 1,3,5,7,8,10,12: if (den > 0) and (den < 32) then begin if chlapec then writeln('boy') else writeln('girl'); end else writeln('invalid'); 4,6,9,11: if (den > 0) and (den < 31) then begin if chlapec then writeln('boy') else writeln('girl'); end else writeln('invalid'); 2: if (rok mod 4 = 0) then begin if (den > 0) and (den < 30) then begin if chlapec then writeln('boy') else writeln('girl'); end else writeln('invalid'); end else if (den > 0) and (den < 29) then begin if chlapec then writeln('boy') else writeln('girl'); end else writeln('invalid'); end end else writeln('invalid'); end else writeln('invalid'); end else if length(a) = 11 then begin pom:= copy(a, 0, 2); val(pom, rok, code); if ((rok > 53) and (rok < 100)) or ((rok > -1) and (rok < 10)) then begin pom := a; delete(pom, 7, 1); pom := copy(pom, 0, 2); val(pom, i, code); k := 0; repeat inc(k); i := i mod 11; i := i * 10; pom := a; delete(pom, 7, 1); pom := copy(pom, k+2, 1); val(pom, j, code); i := i+j; until (k = 9); if (i mod 11<>0) then writeln('invalid') else begin pom := copy(a, 3, 2); val(pom, mesiac, code); if (mesiac > 12) then begin mesiac := mesiac - 50; chlapec := false; end; if (mesiac > 0) and (mesiac < 13) then begin pom := copy(a, 5, 2); val(pom, den, code); case mesiac of 1,3,5,7,8,10,12: if (den > 0) and (den < 32) then begin if chlapec then writeln('boy') else writeln('girl'); end else writeln('invalid'); 4,6,9,11: if (den > 0) and (den < 31) then begin if chlapec then writeln('boy') else writeln('girl'); end else writeln('invalid'); 2: if (rok mod 4 = 0) then begin if (den > 0) and (den < 30) then begin if chlapec then writeln('boy') else writeln('girl'); end else writeln('invalid'); end else if (den > 0) and (den < 29) then begin if chlapec then writeln('boy') else writeln('girl'); end else writeln('invalid'); end end else writeln('invalid'); end; end else writeln('invalid'); end else writeln('invalid'); end; until a='end'; end.