dim y as integer
dim leapyear as boolean

1' input : get the year
 y= get year ()

2'process: figure out if leapyear or not
 leapyear =  is leapyear (y)

3' output:
 if ( leapyear ) then say ("yes it is a leapyear")
else say ("no it is not a leapyear")






end sub end