var
n:integer;
begin
writeln(n);
readln(n);
case n of
1..4:begin
writeln('few');
end;
5..9: begin
writeln('several');
end;
10..19: begin
writeln('pack');
end;
20..49: begin
writeln('lots');
end;
50..99: begin
writeln('horde');
end;
100..249: begin
writeln('throng');
end;
250..499: begin
writeln('swarm');
end;
500..999: begin
writeln('zounds');
end;
1000..2000:begin
writeln('legion');
end;
end;
end.

Edited by author 24.11.2015 23:33

...
begin
writeln(n);
...