While 1=1 do write(' Toi lap trinh gioi'); --> Viết hàm này thì khi em chạy luôn hiển thị ra như vậy và không dừng lại được. Vì 1 luôn luôn =1 - i:=1; while i<10 do sum:= sum +i; i:=i+1; --> Chỗ này em khai báo thêm giá trị khởi đầu của sum:=0; đoạn i:=i+1 có thể sửa thành i:=i++ để gọn hơn nhé.
