program zad3;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var f1,f2:text;
s1,m1,m2,m3,j,t,n,i,s,m:integer;
  a:array[1..1000] of integer;

begin
assign(f1,'input1.txt');
reset(f1);
readln(f1,n);
for i:=1 to n do
read(f1,a[i]);
readln(f1,s);
close(f1);
{sort}
for i:=1 to n-1 do
for j:=1 to n-1 do
if a[j]<a[j+1] then begin t:=a[j];a[j]:=a[j+1];a[j+1]:=t; end;

assign(f2,'output1.txt');
rewrite(f2);
i:=1;m1:=0;
s1:=s;
s:=s1;
writeln(f2,'sposob 1');
while s>0 do begin
//if s>a[i] then begin s:=s-a[i];
m:=s div a[i];
s:=s-m*a[i];
if m>0 then writeln(f2,m,' ',a[i]);
m1:=m1+m;
i:=i+1;
end;
writeln(f2,'***',m1);

writeln(f2,'sposob next');

for j:=1 to s1 do begin
s:=s1+j;
i:=1; m2:=0;
while s>0 do begin
//if s>a[i] then begin s:=s-a[i];
m:=s div a[i];
s:=s-m*a[i];
m2:=m2+m;
i:=i+1;
end;
s:=j;
i:=1; m3:=0;
while s>0 do begin
m:=s div a[i];
s:=s-m*a[i];
m3:=m3+m;
i:=i+1;
end;
if m1>m2+m3 then writeln(f2,s1+j,'- ',m2,'**',j,'-',m3,'***',m2+m3);
end;
writeln(f2);





close(f2);
  { TODO -oUser -cConsole Main : Insert code here }
end.