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.
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page