var a,b:word;c:char;    
begin    
 repeat    
  read(a,b,c);    
  a:=(a*2+b)mod 3;    
  if a=0 then begin writeln('普通');end;    
  if a=1 then begin writeln('吉');end;    
  if a=2 then begin writeln('大吉');end;    
 until eof;    
end.

 本來已經AC了...

 心血來潮重測後...

竟然在第一組測資吃了RE...

為什麼會這樣...

讓我AC數少了一題啦...