leap year by pooq

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.

Note that non-ascii characters in the above source code will be escaped (such as \x9f).

download

return to the top page