Здравствуйте подскажите пожалуйста. Почему не правельно ??
var
c:integer;
begin
readln(c);
if c in [0..4] then
writeln('few');
if c in [5..9] then
writeln('several');
if c in [10..19] then
writeln('pack');
if c in [20..49] then
writeln('lots');
if c in [50..99] then
writeln('horde');
if c in [100..249] then
writeln('throng');
if c in [250..499] then
writeln('swarm');
if c in [500..999] then
writeln('zounds');
if c in [1000..2000] then
writeln('legion');
end.