[code] Tìm ƯCLN của 2 số

$a=0
$b=0
$c=1
While $a<=0
 $a=InputBox("Nhập cạnh","a=",""," M")
WEnd
While $b<=0
 $b=InputBox("Nhập cạnh","b=",""," M")
WEnd
If $a>$b Then
 $tg=$a
 $a=$b
 $b=$tg
EndIf
While Not $c=0
$c=Mod($a,$b)
$a=$b
$b=$c
If $c=0 Then MsgBox(0,"ƯCLN($a,$b)",$a) EndIf
WEnd