Imports System
Public Module Module1
Public Sub Main()
Dim a,b as Single
console.writeline("valeur de a ?")
a = console.readline()
console.writeline("valeur de b ?")
b = console.readline()
while a <> b
If a > b then
Do
a = a - b
loop until a <= b
End if
If a < b then
b = b - a
loop until a >= b
End while
console.writeline("le pgcd est egal a " & a)
End Sub
End Module