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

uses crt;

var a:integer;

b:char (вроде так пишется);

begin

clrscr;

writeln ('сколько лет?');

readln (a);

case a of

0 ... 5:b:=yasli;

6 ... 18:b:=school;

19 ... 45:b:=rabota

else b:=pensia

end;

writeln (b)

end.