3. По возрасту определить род занятий человека: ясли, школа, работа, пенсия.

program zz1;

var a:integer; / / задаем переменную целого типа

begin

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

read (a);

if (a > 0) and (a < 7) / / проверяем первое условие

then write (' ясли '); / / выводим один ответ

if (a > 6) and (a < 18) / / проверяем второе условие

then write (' школа '); / / выводим второй ответ

if (a > 17) and (a < 61) / / проверяем третье условие

then write (' работа '); / / выводим третий ответ

if (a > 59) / / проверяем четвертое условие

then write (' пенсия '); / / выводим четвертый ответ

end.