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.
