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!’);