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

    End Sub

End Module

​

'INTEGER : number

'INPUT number

'OUTPUT "enter number"

'INPUT number

'FOR i <---- TO number

'IF NUMBER MOD =i =0 THEN

'OUTPUT number

'ENDIF

​

'NEXT