Imports System

Public Module Module1

    Public Sub Main()

        Dim Number As Integer

        Console.WriteLine("Enter Number")

        Number = Console.ReadLine()

        For i =1 To Number

            if Number MOD i = 0 Then

                Console.WriteLine(i)

            End If

        Next

    'PSEUDOCODE

    '

    'INTEGER: Number

    '

    'OUTPUT "Enter number

    'INPUT Number

    '

    'For i <-- 1 To Number

    '

    '   If Number MOD i = 0 THEN

    '       OUTPUT i

    '   ENDIF

    '

    'NEXT

​

​

    End Sub

End Module