VAR N,I:LONGINT;
FUNCTION BEAUTIFUL(X:LONGINT):BOOLEAN;
VAR S,K:LONGINT;
BEGIN
      S:=0;
      K:=0;
      WHILE X>0 DO
      BEGIN
           K:=K+1;
           S:=S+X MOD 10;
           X:=X DIV 10
      END;
      BEAUTIFUL:=S MOD K=0
END;
BEGIN
      ASSIGN(INPUT,'INPUT.TXT');
      RESET(INPUT);
      ASSIGN(OUTPUT,'OUTPUT.TXT');
      REWRITE(OUTPUT);
      READLN(N);
      I:=0;
      WHILE N<>0 DO
      BEGIN
           I:=I+1;
           IF BEAUTIFUL(I) THEN N:=N-1;
      END;
      WRITELN(I);
END.