ARRAY LONGINT(Test;10000)
For ($i;1;10000)
Test{$i}:=$i
End for 
$i:=1
$j:=0
$n:=Size of array(Test)

$chrono:=Milliseconds

For ($i;1;$n)
If (Test{$i}%3=0)

$j:=$j+1
Test{$j}:=Test{$i}
End if 
End for 

DELETE ELEMENT(Test;$j+1;10000-$j)
$chrono:=Milliseconds-$chrono
ALERT("Method 2:"+String($chrono))