Imports System.Console
 
Module Module1
 
  Sub Main()
    Dim jahre(4) As Integer
    Dim i As Integer
 
    For i = 0 To 4
      Write("Bitte geben Sie die {0}. Jahreszahl ein: ", i + 1)
      Integer.TryParse(ReadLine(), jahre(i))
    Next
    WriteLine()
 
    For i = 0 To 4
      If IstSchaltjahr(jahre(i)) Then
        WriteLine("Das Jahr {0} ist ein Schaltjahr", jahre(i))
      Else
        WriteLine("Das Jahr {0} ist kein Schaltjahr", jahre(i))
      End If
    Next
    Warten()
  End Sub
 
  Private Function IstSchaltjahr(ByVal jahr As Integer) As Boolean
    If jahr < 0 Then Return False
    If jahr Mod 4 = 0 Then
      If jahr Mod 100 = 0 Then
        Return jahr Mod 400 = 0
      Else
        Return True
      End If
    Else
      Return False
    End If
  End Function
 
  Private Sub Warten()
    Write("Bitte EINGABE drücken: ")
    ReadLine()
  End Sub
 
End Module