[code] Tìm BCNN của 2 số nguyên dương

$a=0
$b=0
While $a<=0
    $a=InputBox("Nhập","a=")
WEnd
While $b<=0
    $b=InputBox("Nhập","b=")
WEnd
$c=$a*$b
While $c<>0
    If Mod($c,$a)==0 And Mod($c,$b)=0 Then
        $d=$c
    EndIf
    $c-=1
WEnd
MsgBox(0,"Thông báo","BCNN="&$d)