lập trình pascal chứ không phải là giải thuật bạn ạk mình cần chuương trình viết = pascal