Prgm
Local i, anf, ende, isscha
Unterprogramm
Define isscha(j) = Func
Func
If mod(j, 4) ¹ 0
Return false
If mod(j, 100) = 0 and mod(j,400) ¹ 0
Return false
true
EndFunc
Hauptprogramm
ClrIO
Dialog
Title "Eingabe von zwei Jahreszahlen"
Request "von ", anf
Request "bis ", ende
EndDlog
expr(anf) ® anf
expr(ende) ® ende
For i, anf, ende
If isscha(i)
Disp i
EndFor
EndPrgm
