Пример 2. Определение порядка целого числа

PROGRAM ZNACH;

uses Crt;

var N: word;

Begin

Randomize;

N:=Random(1500);

case N of

       0..9: writeln('однозначное');

    10..99: writeln('двузначное');

 100..999: writeln('трехзначное')

else writeln('Число', N, ' не входит в указанный диапазон') 

end;