var y:word;begin
repeat
read(y);write(y,' is not':7-4*ord((y mod 400=0)|(y mod 100>0)&(3and y=0)),' a leap year.
')until 1=0end.