program trip; uses crt; var q,w,e,m,n,b,s,i,j,k:integer; z,x,c:string; begin clrscr; readln(s); readln(z,m); readln(x,n); readln(c,b); if (m>0) and (n>0) and (b>0) then for i:=0 to m do for j:=0 to n do for k:=0 to b do if i+j+k=s then begin {writeln(i,j,k);} for q:=1 to i do write(z, ' '); for w :=1 to j do write(x, ' '); for e:=1 to k do write(c, ' '); writeln; end; end.