program syntax;
var i:integer;
begin
readln(i);
case i of
1:writeln('It is one.');
1000..10000:writeln('It is large.');
end.
{Missing end; }