program combinari;
uses crt;
var x:array[1..20]of integer;
    i,k,m,n:integer;

function test(k:integer):boolean;
var j:integer;
    vb:boolean;
begin
vb:=true;
for j:=1 to k-1 do
if (x[j]>x[k])  then vb:=false;
test:=vb;
end;


procedure scrie;
begin
for i:=1 to m do
write(           x[i]);
writeln;
end;

begin
clrscr;
writeln('Introduceti numarul de elemente n');readln(n);
writeln('m');readln(m);
for i:=1 to m do x[i]:=0;
k:=1;
while k<>0 do begin
      while x[k]<n do begin
                           x[k]:=x[k]+1;
                           if test(k) then
                              if k=m then scrie
                              else begin
                                        k:=k+1;
                                        x[k]:=0;
                                  end

                      end;
k:=k-1;
end;
end.