Bạn anhhoacuc viết có lẽ là sai phần Begin end, với lại thuật toán này viết quá dài, khó hiểu. mình có cách khác nhanh hơn:


Program so6cs;
Uses Crt;
Var n:longint;
k,tle,tchan:integer;
...