Var
 N,i:LongInt;
 p:boolean;

Function Sum(M:LongInt):Byte;
var S:longInt;
begin
 S:=0;
 Repeat
  S:=S+(M mod 10);
  M:=M div 10;
 Until M=0;
 Sum:=S;
end;

Begin
 Write('N= ');
 Readln(N);
 p:=true;
 For i:=1 to N-1 do
  If Sum(i)=Sum(N) then
   begin
    Write(i:8);
    p:=false;
   end;
 If p then Writeln('No');
 Readln;
End.