while (j<4) {
        while (count[j]>0) {
            otn[i] = cen[j]/w[j];
            stoim[i] = cen[j];
            ves[i] = w[j];
            met[i] = metall[j];
            i++;
            count[j] = count[j] - 1;
        }
        j++;
    }

    while (kon != 4) {
        r = 0;
        for (i=0 ; i<Q ; i++) {
            if ((otn[i]<max1) && (otn[i]>max2)) max2 = otn[i];
        }
        for (i=0 ; i<Q ; i++) {
            if (otn[i] == max2) {
                r++;
                I[f] = otn[i];
                stoim2[f] = stoim[i];
                ves2[f] = ves[i];
                met2[f] = met[i];
                f++;
            }
        }
        max1 = max2;
        max2 = -1;
        kon++;
    }