Program p641;
const maxn=10;
type myarray=array[0..maxn] of integer;
var a:myarray;
procedure outs(a:myarray);
var j:integer;
BEGIN
for j:=a[0] downto 1 do write(a[j],' ');
writeln;
end;
procedure generate(n,k:integer);
var i:integer;
begin
if n=0 then outs(a)
else for i:=k downto 1 do begin
a[n]:=i;
generate(n-1,k);
end;
end;
var n,k:integer;
begin
write('vvedite n,k: ');
readln(n,k);
a[0]:=n;
generate(n,k);
END.