program aula04_ex1;
uses
  crt;

var
  Idade:integer;

begin
  clrscr;
  write('How old are you? ');
  readln(Idade);
  writeln;
  case Idade of
     -1: begin
            writeln('Hello Little Baby...');
            writeln('Enjoy your nine months of peaceful life!');
         end;
     0:     writeln('Hello Baby');
     1..5:  writeln('Hello Little Boy / Girl');
     6..10: writeln('Hello Boy / Girl');
     11..15:  writeln('Hello Little Man / Woman');
     16..25:  writeln('Hi');
     26..45:  writeln('Hello');
     46..60:  writeln('Hello Mister / Madam');
     61..120: writeln('Hello Old Man / Old Woman');
     else     begin
                writeln('Hello World...');
                writeln('Can you hear me?');
              end;
  end;
  readln;
end.