Khi ta dùng các lệnh lặp như while..do với số lần lặp chưa biết trước mà không check các phép gán ở trên hay phép so sánh mà máy cho là đúng, không bao giờ sai thì rất dễ dính đòn vô hạn từ lệnh lặp và bắt buộc phải tắt chương trình và mở lại. Vd như: a:=3; While a<5 do write(a); Cách khắc phục: Cần tìm hiểu kĩ về khái niệm của các câu lệnh vòng lặp để tránh bị lỗi vòng lặp vô hạn. Đối với while....do thì cần phải để while..do có câu lệnh làm thay đổi giá trị của điều kiện thì mới làm câu điều kiện đó sai và mới cho ra kết quả (đúng với khái niệm của while..do). Khắc phục lỗi trên: a:=3; While a<=5 do Begin Write(i:3); a:=a+1; *Ta cũng cần phải xem xét câu lệnh lặp repeat...until vì nó cũng có tính chất "với số lần lặp chưa biết trước" như while..do nhưng điều kiện phải đúng (khác với while..do với điều kiện phải sai thì mới in ra kết quả)
