do input""n:?n+0^n," is ",mid$("not a leap year.",5^!mod(n,4*4^!mod(n,50)))loop