Question

решите срочно пожалуйста

Answer 1

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