Imports System

Public Module Module1

    Public Sub Main()

        Dim Number2 As Integer

        DIM Number1 As Integer

        Console.WriteLine("Enter Number 2")

        Number2 = Console.ReadLine()

        Console.WriteLine(" Enter Number 1")

        Number1 = Console.ReadLine()

        If Number2 > Number1 Then

            Console.WriteLine("Number 2 is bigger")     

        Else

            If Number2 = Number1 Then

                Console.WriteLine("Same")

            Else

                Console.WriteLine(" Number 1 is bigger")

            End If

        End If

​

​

        End Sub

    End Module

​

'PSEUDOCODE

'----------

'

'Integer: Number1,Number2

'

'Output"Enter Number 1"

'Input Number1

'Output "Enter Number 2" 

'Input Number1

'

' If Number2 > Number1 Then

'   Output(Number2 is bigger)

'  Else

'   If Number2 = Number1 Then

'     Output "Same"

'    Else

'     Output "Number1 is bigger"         

'

'

'

'

'

​