[code] Kiểm tra là số nguyên tố không?

$n=0
While $n<=1
 $n=InputBox("Nhập","n=")
WEnd
$m=2
$ds=0
While $n>$m And $ds=0
 If Mod($n,$m) =0 Then
  $ds=1
 EndIf
 $m+=1
WEnd
If $ds=1 Then
 MsgBox(0,$n,"là hợp số")
EndIf
If $ds=0 Then
 MsgBox(0,$n,"là số nguyên tố")
EndIf