Sub Main()
 
        Dim zahl As Integer
 
        Dim input As String
        Do
            Write("Bitte natürliche, positive Zahl eingeben: ")
            input = Console.ReadLine()
        Loop While Not Integer.TryParse(input, zahl) Or zahl < 1
 
        Dim Teiler As Integer = FindeTeiler(zahl, {2, 4, 5, 8})
 
        If Teiler > 0 Then
            WriteLine("Der größte Teiler ist " & CStr(Teiler))
        Else
            WriteLine("Kein Teiler gefunden.")
        End If
 
        Warten()
 
    End Sub