Tham khảo:
*cú pháp For:
For <biến điếm>:=<giá trị đầu> to <giá trị cuối> do <câu lệnh>;
- Hoạt động: câu lệnh lặp sẽ thực hiện câu lệnh nhiều lần, mỗi lần là một vòng lặp. Số vòng lặp là biết trước và bằng giá trị cuối - giá trị đầu+1. Khi thực hiện, ban đầu biến đếm sẽ nhận giá trị đầu, sau mỗi vòng lặp, biến đếm được tự động tăng thêm 1 đơn vị cho đến khi bằng giá trị cuối.
Vd:
program ct;
uses crt;
Var i,n,s:integer;
begin
clrscr;
write('nhap n:=');readln(n);
s:=0;
for i:=1 to n do s:=s+i;
writeln('tong cua n do tu nhien dau tien la:',s);
readln
end.