Uses crt;
Var
sayi:integer;
Begin
Writeln('sayi>?');Readln(sayi);
If (sayi>=1) and (sayi<=10000) then
If sayi>=1000 then Writeln('4.aralikta')
Else If sayi>=100 then Writeln('3. aralikta')
Else If sayi>=10 then Writeln('2. aralikta')
Else
Writeln('1. aralikta')
Else
Writeln('girilen sayi 1-10000 arasinda olmali');
Readln;
end.