program Project2; {$APPTYPE CONSOLE} uses SysUtils; Var N,k,J1,J2,J3:int64; begin assign(input,'count.in'); reset(input); readln(N); close(input); assign(output,'count.out'); rewrite(output); if (N>0) and (N<10) then k:=1; if (N<100) and (N>10) then k:=2; if (N mod 11=0) and (N<100) then k:=1; While (N>100) and (N<1000) do begin N:=(J1*(10*l)-10)+(J2*(10*(l-1))-10)+(J3*(10*(l-2))-10)+(J4*(10*(l-3))-10)+(J5*(10*(l-4))-10); end; close(output); writeln(k); { TODO -oUser -cConsole Main : Insert code here } end.