mình nghĩ code thế là cũng okie rồi, chưa hoàn hảo mong bạn chỉ rõ lần sau mình sửa (vì mình ko dùng pascal 1 năm rồi nên sai sót khó tránh khỏi @@) . còn code bạn thì chính xác rồi chỉ có điều là hơi khó hiểu đối với bạn hỏi vì bạn ấy ns là chỉ dùng for...do và if...then