program bai_giai;

uses crt;

var n:longint;

begin

clrscr;

write('nhap tuoi cua ban:');readln(n);

if(n>=0)and(n<=15)then write('ban dang o tuoi thieu nhi');

if(n>=16)and(n<=18)then write('ban dang o tuoi thieu nien');

if(n>=19)and(n<=25)then write('ban dang o tuoi thanh nien');

if(n>25)then write('ban dang o tuoi truong thanh');

readln;

end.

Uses crt;

Var tuoi:Byte;

Begin

clrscr;

Write(Nhap vao tuoi cua mot nguoi:'); Readln(tuoi);

Case tuoi Of

0...15: Writeln(Nguoi nay la thieu nhi');

16..18:Writeln(Nguoi nay la thieu nien');

19..25:Writeln(Nguoi nay la thanh nien');

>25:Writeln(Nguoi nay la truong thanh)

End;

Readln

End.

Bạn tham khảo!