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"
'FOR i <---- TO number
'IF NUMBER MOD =i =0 THEN
'OUTPUT number
'ENDIF
'NEXT