chomp(@input=<>);
foreach$i(@input){
print"$i is ";
if($i%400!=0&&($i%100==0 || $i%4!=0)){print "not ";}print "a leap year.\n";
}