program vaga;

{$APPTYPE CONSOLE}

uses sysutils;

Var
a,b:array[1..1000000] of int64;
k,t,k0,s,s0,n: int64;
i,j:integer;

Begin
readln(n,k);
i:=1;
while i<=n do begin
a[i]:=i;
t:=a[i];
b[i]:=0;
while t>0 do
begin
b[i]:=b[i]+t mod 10;
t:=t div 10;
end;
i:=i+1;
end;

for i:=1 to n do
for j:=i to n do
begin
if (b[i])>(b[j]) then begin
t:=b[i];
b[i]:=b[j];
b[j]:=t;
t:=a[i];
a[i]:=a[j];
a[j]:=t;
end;
if (b[i]=b[j])and(inttostr(a[i])>inttostr(a[j])) then begin
t:=b[i];
b[i]:=b[j];
b[j]:=t;
t:=a[i];
a[i]:=a[j];
a[j]:=t;
end;
end;
//for j:=1 to n do writeln(a[j],' ',b[j]);


j:=1;
while (a[j]<>k) do j:=j+1;
writeln(j);
writeln(a[k]);

readln;
End.