C_LONGINT($i;$n)
ARRAY LONGINT(Test;10000)
For ($i;1;10000)
Test{$i}:=$i
End for 

$i:=1
$n:=Size of array(Test)

$chrono:=Milliseconds

While ($i<=$n)
If (Test{$i}%3#0)

DELETE ELEMENT(Test;$i;1)
$n:=$n-1
Else 
$i:=$i+1
End if 
End while 

$chrono:=Milliseconds-$chrono
ALERT("Method 1:"+String($chrono))