Imports System

Public Module Module1

    Public Sub Main()

        Dim A , B as Integer

        console.WriteLine(" valeur de A ?")

        A = console.ReadLine()

        'démander la valeur de A

        console.WriteLine("valeur de B ?")

        B = console.ReadLine()

        'démander la valeur de B

        Do

            If A < B then

                B = B - A

            Else if A > B then

                    A = A - B 

                End If

                Loop Until A=B 

                console.WriteLine(" le PGCD est égal = " & A )

        End Sub

    End Module