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.

#include <iostream>
using namespace std;
int tongchuso(int n)
{
    int sotachra,s=0;
    for(;n!=0;){
        sotachra = n % 10;
        s += sotachra;
        n /= 10;
    }
    return s;
}
int main()
{
    int n,a;
    cin>>n;
    a=n-1;
    while(true){
        if(tongchuso(a)==10){
            cout<<a;
            return 0;
        }
        a--;
    }
    //samon247
    return 0;
}