// leapyear.vdm // set n-reg 1 to year // return_value set to 1 if year is a leap year // else returns 0 #2=0 #3=#1/4 if(remainder==0) {#2=1} #3=#1/100 if(remainder==0) { #3=#1/400 if(remainder<>0) {#2=0} } return(#2)