Uses crt;
var x:integer;
begin
write('Лет:'); read(x);
if (x>=5) and (x<=18) then write('Ребенок.');<br>if (x>18) and (x<=45) then write('Молодой человек.');<br>if (x>55) and (x<=100) then write('Пожилой.');<br>end.
Например,а про человека(какой он),не всегда можно по годам определить!