Zahlenräume abdecken

[CrashingToad]

hallo,
Ich bin relativ neu dabei und arbeite mich grade durch die Übungsaufgaben unseres Delphi-"buches" durch.
Meine Frage, die leider nicht im Buch beantwortet wird, ist:
Wie kann ich einen Zahlenraum abdecken?
Beispiel:

Zitat:

write('Bitte geben Sie an, wie schwer das Holz ist: ');
readln(Gewicht);
case(Gewicht) of
1[BIS]20: writeln('Der Transport kostet 25 Euro');
end;