Imports System

Public Module Module1

    Public Sub Main()

        console.WriteLine("geben sie eine Zahl ein")

        dim zahl as Integer

        zahl=console.readline

        for i=1 to zahl/2

        if zahl mod i=0 then

            console.WriteLine(i)

        end if

    next

    End Sub

End Module