Viết chương trình cho phép người dùng nhập vào tuổi của một người

Viết chương trình cho phép người dùng nhập vào tuổi của một người. In ra thông báo trên màn hình độ tuổi thích hợp của người ấy!

Program tinh_tuoi; {d:\bang\tinhtuoi.pas}

Var

tuoi:Integer;

Write(‘Nhap tuoi can kiem tra:’);

Readln(tuoi);

+ Nếu tuoi < 18 thì   è If (tuoi<18) Then

          Write(tuoi,‘ Tuoi thieu nhi!’);

+ Nếu (tuoi>=18) and (tuoi<30) thì

          Write( tuoi, ‘Tuoi thanh thiêu nien!);

+ Nếu (tuoi >=30’) and (tuoi <40) thì

          Write(tuoi, ‘Tuoi thieu nien!’);

+ Nếu (tuoi>=40) and (tuoi<60) thì (tuoi=61)

          Write(tuoi, ‘Tuoi trung nien!);

+ Nếu tuoi>=60 thì

          Write(tuoi, ‘Tuoi lao nien!’);