Giúp em bài pascal này với em đang cần gấp

Question

Câu 1: 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ão niên. Biết rằng: nếu tuổi nhỏ hơn 18 là thiếu niên, từ 18 đến 39 là thanh niên, từ 40 đến 60 là trung niên và lớn hơn 60 là lão niên

Answer 1

program Tuoi;

uses crt;

var i: integer;

Begin

   clrscr;

   write(‘Nhap tuoi cua ban’); readln(i);

   if (i=18) and (i=40) and (i