var
  y:integer;
begin
  while not eof do begin;
    readln(y);
    if ((y mod 400=0) or ((y mod 4=0) and (y mod 100<>0))) then writeln('閏年')
                                                                                        else writeln('平年');

   end;
 
end.
_______________________________________________________________________________

今天就到这吧~~