Question

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

Answer 1

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.