begin    for j:=1 to N-1 do      for i:=1 to N-j do         if M[i] > M[i+1] then               swap(M[i],M[i+1]) end;