Ответ:

program z1;

var v:integer;

begin

write('Введите возраст: ');

readln(v);

case v of  

1..6: write('Возрастная категория: дошкольник');

7..17: write('Возрастная категория: школьник');

18..60: write('Возрастная категория: рабочий');

61..100: write('Возрастная категория: пенсионер')

end

end.

Объяснение:

Если введено число не попадающее в интервал [1; 100] программа ничего не выведет