var
n, k, p, i, j: integer;
begin
write('k? '); readln(k);
p:=k-1;
n:=0;
for i:=1 to 9 do begin
if (0<=p) and (p<=18) then begin
for j:=0 to 9 do begin
if (0<=p) and (p<=9) then begin
writeln(i,j,p);
inc(n);
end;
dec(p);
end;
inc(p, 10);
end;
dec(p);
end;
inc(p, 10);
writeln(n);
readln;
end.