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

Question

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

---

Answer 1

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