Bài 8. Lặp với số lần chưa biết trước

Bổ sung thêm: "For..to..do.." hay "For..downto..do.." được hiểu như là cấu trúc lặp với số lần lặp được báo trước và thường sẽ có kết thúc (hay còn gọi là "thoát" khỏi vòng lặp).
Tuy nhiên, cấu trúc "While..do.." hay "Repeat..Until.." nói chung được hiểu như cấu trúc lặp với số lần lặp không biết trước (hoặc chưa biết trước) và có một số trường hợp sẽ "treo" máy vì cấu trúc lặp vô tận xãy ra do lỗi cài đặt hoặc xử lý câu lệnh của người viết chương trình
#from yahoo

Var n: integer;
s: longint;
BEGIN
repeat
write( 'Nhap n: '); readln(n);
until (n>=0);
s:=0;
for i:=1 to n do
s:=s+i;
write('Tong cac so tu 1 toi ', n,' =', s);
readln
END.