[shurikan]

[mzd]
Точнее это будет так:

Код:

 
ii := 0; 
for i:= 1 to n-1 do 
begin 
 *inc(ii); 
 *if i = temp_var1 then inc(ii); 
 *jj := 0; 
 *for j:= 1 to n-1 do 
 *begin 
 * * *inc(jj); 
 * * *if j = temp_var2 then inc(jj) 
 * * *b[i,j]:=a[ii,jj] 
 *end; 
end;