Program seventh; Var I:integer; Begin Readln(i); If i=1 then writeln('It''s number one.') else if (i>=10) and (i<20) then writeln('It''s tenth digit is 1.') else if (i>=100) and (i<=199) then writeln('It''s hundredth digit is 1.') else if (i>=1000) and (i<=1999) then writeln('It''s thousandth digit is 1.') else writeln('It''s greater than 1999 or it isn''t start with 1.'); End.