program zad2;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var f1,f2:text;
  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;
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]);

i:=i+1;
end;



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