По возрасту человека отнести его к одной из четырех групп: дошкольник, ученик, работник, пенсионер - Pascal ABC

Формулировка задачи:

Напишите программу, которая анализирует человека по возрасту и относит к одной из четырех групп: дошкольник, ученик, работник, пенсионер. Возраст вводится с клавиатуры. ПОмoгите, плз

Решение задачи: «По возрасту человека отнести его к одной из четырех групп: дошкольник, ученик, работник, пенсионер»

Листинг программы

var
a:byte;
begin
readln(a);
case a of
  1..5:writeln('Дошкольник.');
  6..18:writeln('Ученик.');
  19..59:writeln('Работник.');
  60..180:writeln('Пенсионер.');
end;
end.

Объяснение кода листинга программы

В данном коде происходит следующее:

Переменная a инициализируется значением, которое считывается с консоли.
Затем выполняется оператор readln(a), который считывает значение переменной a с консоли и переводит программу в ожидание ввода.
Далее выполняется оператор case a of, который проверяет значение переменной a.
Если значение a находится в диапазоне от 1 до 5, то выводится строка 'Дошкольник.'.
Если значение a находится в диапазоне от 6 до 18, то выводится строка 'Ученик.'.
Если значение a находится в диапазоне от 19 до 59, то выводится строка 'Работник.'.
Если значение a находится в диапазоне от 60 до 180, то выводится строка 'Пенсионер.'.
Код завершается с помощью оператора end;.