Imports System

Public Module Module1

    Public Sub Main()

Dim Number1,Number2 As Integer

  Console.WriteLine("Enter Number1")

  Number1=Console.ReadLine()

  Console.WriteLine("Enter Number2")

  Number2=Console.ReadLine()

  If Number1=Number2 Then

      Console.WriteLine("Same")

  Elseif Number1>Number2 Then

      Console.WriteLine("First")

  Elseif Number1<Number2 Then

      Console.WriteLine("Second")

  End If 

'Pseudocode

'==============

'INTEGER:Number1, Number2

'INPUT Number1, Number2

'IF Number1=Number2 THEN

'OUTPUT "Same"

'ELSE 

'IF Number2>Number1 Then

'OUTPUT "Second"

'ELSE 

'OUTPUT "First"

'ENDIF

'ENDIF

​

    End Sub

End Module