for (my$j=0;$j<$n;$j=$j+1)