program trip; var q,w,e,m,n,b,s,i,j,k:integer; z,x,c:string; f1,f2:file; begin assign(f1,'trip.dat'); reset(f1); assign(f2,'trip.sol'); rewrite(f2); readln(f1,s); readln(f1,z,m); readln(f1,x,n); readln(f1,c,b); begin 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(f2,z, ' '); for w :=1 to j do write(f2,x, ' '); for e:=1 to k do write(f2,c, ' '); writeln; end; end; close(f1); close(f2); end.