Viết chương trình nhập vào tuổi của một người và cho biết người đó là thiếu niên, thanh niên, trung niên hay là lão niên. Biết rằng: nếu tuổi nhỏ hơn 18 là thiếu niên, từ 18-->39 là thanh niên, từ 40 đến 60 là trung niên và lớn hơn 60 là lão niên. Giúp mình với, đang cần gấp, mai kiểm tra ồi huhu T^T

Uses crt;

Var a, b, c ,d:integer; 

Begin clrscr ;

Write('nhap a, b, c,d'); readln(a,b,c,d);

If a <18 then write('LA Thieu nien ');

If b >= 18 

Else b<=39 then write('LA Thanh nien ');

If c>=40 

Else c<=60 then write ('LA thing nien ');

If d >60 then write ('LA Lao nien ');

Readln;

End. 

program Tuoi;

uses crt;

var i: integer;

Begin

   clrscr;

   write('Nhap tuoi cua ban'); readln(i);

   if (i<18) then writeln('Ban la thieu nien')

      else if (i>=18) and (i<=39) then writeln('Ban la thanh nien')

        else if (i>=40) and (i<=60) then writeln('Ban la trung nien')

            else writeln('Ban la lao nien');

   readln;

End.