Пишем и объяснем. Элемент case - это оператор аналогичный if, только условия более "скомпованы". Для того, чтобы не вводить 10 раз if используют case. Разбираем.

Uses crt;

Var n:real; //нужен только переменная возраста

Begin

Writeln('введите возраст человека'): read(n); //считываем возраст с клавиатуры

Case n of:                                                // таким образом объявляется этот оператор

0..6: writeln('Дошкольник');                                 // пишим всякие числовые значения

7..18: writeln('Школьник');                                   // которые можно менять.

18-24: writeln('Студент');                                    //  Технология

25-60: writeln('Работник');                                  // аналогичная оператору if

60-100: wtiteln('Пенсионер');                       

    end;            // обязательно end в конце - конец условия опертора

end.