Minimo Comune Multiplo di due numeri con le sole risorse di Gambas

Per trovare il Minimo Comune Multiplo di due numeri mediante le sole risorse di Gambas, è possibile adottare il seguente codice:

Public Sub Main()
 
 Dim s As String
 Dim ii As New Integer[]
 Dim prod, con, tr As Integer
 
  Do
    Print "Inserisci un numero:"
    Input s
    ii.Push(Val(s))
  Loop Until ii.Count = 2
  
  prod = ii[0] * ii[1]
  
  If ii[0] > ii[1] Then
    con = ii[0]
  Else
    con = ii[1]
  Endif
  
  While (con < prod) And (tr = 0)
    If (con Mod ii[0] = 0) And (con Mod ii[1] = 0) Then
      tr = 1
    Else
      Inc con
    Endif
  Wend
  
  Print "Il MINIMO COMUNE MULTIPLO di "; ii[0]; " e "; ii[1]; " è: "; con
  
End