function soucet(a : longint) : integer;
var
  b : integer;
begin
  b := 0;
  while a >= 10 do begin
    b := b + a mod 10;
    a := a div 10;



  end;
  b := b + a;

  soucet := b;
end;




var
  n, p : integer;

begin

readln(n);


while n <> 0 do begin






  p := 11;

  while soucet(p * n) <> soucet(n) do begin
    inc(p);

  end;

  writeln(p);


  readln(n);
end;










end.