Fin.close();

//1)сделать очереди пустыми

for (int i=0; i<l; i++) clrqu(w[i]);

int x=1, k=1;

//2)записать x в файл

fout<<setw(6)<<x;

//3)основной цикл

while (k<N)

{ //3.1)записать элемент x*b[i] в очередь w[i]

for (int i=0; i<l; i++) insqu(w[i], x*b[i]);

//3.2)найти и поместить в x минимальный

// элемент из первых в w[i]

x=topqu(w[0]);

for (int i=1;i<l;i++)

{int t=topqu(w[i]);

if (t<x)x=t;

}

//3.3)добавить x в fout

fout<<setw(6)<<x; k++;

if (k%10==0) fout<<endl;

//3.4 убрать из очередей элементы == x

for (int i=0;i<l;i++)

if (x==topqu(w[i])) remqu(w[i]);

}

fout<<endl;