program gruppa;
uses crt;
var vozrast:integer;
begin
clrscr;
writeln('Enter your years');
readln(vozrast);
 if (vozrast>=0) and (vozrast<=7) then
  begin
   writeln('You is presscool child');
  end
 else
  begin
   if (vozrast>8) and (vozrast<=17) then
     begin
       writeln('you is schoolchild');
     end
   else
     if (vozrast>18) and (vozrast<=60) then
       begin
         writeln('you is an employee');
       end
     else
       begin
         writeln('you is a pensioner');
       end;
   end;
readln;
end.