var y:word;begin
repeat
read(y);writeln(y,' is',copy(' not ',ord((y mod 400=0)or(y mod 100>0)and(y mod 4=0))*4+1),'a leap year.')until 1=0end.