Imports System

Public Module Module1

    Public Sub Main()

        Dim a As integer = 0

        Dim b As integer = 0

        Dim x As integer = 0

        Console.writeline("Enter the 1st number = ")

        a = console.Readline()

        Console.writeline("Enter the 2nd number = ")

        b = console.Readline()

        while b > 0

            x = a Mod b

            a = b

            b = x

        End while

        Console.WriteLine("GCD is = 0", {a})

    End Sub

End Module