uses crt;
var n,i,kt,a,e,j:longint; s:string;
begin
clrscr;
write('n=');readln(n);
i:=n;
repeat
dec(i); kt:=0;
str(i,s);
for j:=1 to length(s) do
begin
val(s[j],a,e);
kt:=kt+a;
end;
until (kt=10)or(i=0);
If i=0 then writeln('Kkong co so nao hop le!!!!') else writeln(i);
readln
end.