Сегодня вы можете задать 100 вопросов.2222 333

 for j = 2 to A.length do  
    key = A[j] 
    i = j-1 
    while (i >= 0 and A[i] > key) do  
        A[i + 1] = A[i] 
        i = i - 1 
    end while 
    A[i+1] = key 
end