pentru k = 0, 4 execută
    n[k] = 0;
    cât timp IS > S[G][B][k + 1] execută

      IS = IS - S[G][B][k + 1];

      G = G - 1;
      B = B - D[k];

      IS = IS - S[G][B][k + 1];

      n[k] = n[k] + 1;
    sfârşit cât timp;
  sfârşit pentru;