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


procedure scrie;
var sw,a:boolean;
    j:integer;
begin
a:=true;
for j:=1 to n do begin
sw:=false;
for i:=1 to k do
if x[i]=j  then sw:=true;
if sw=false then a:=false;
end;
if sw and a then begin
for i:=1 to k do
write(x[i]);
nrsol:=nrsol+1;
end;
writeln;
end;


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

                      end;
m:=m-1;
end;
writeln('Numarul de solutii este :',nrsol);
end.