Var
K:integer;
begin
write(Введите возраст: ); readln(k);
if ((kgt;0) and (klt;7)) then writeln(Дошкольник);
if ((kgt;=7) and (klt;17)) then writeln(Школьник);
if ((kgt;17) and (klt;65)) then writeln(Работающий человек);
if (kgt;65)then writeln(Пенсионер);
readln
end.