cú pháp:

  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ị cướ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: (sorry mình không hiểu chữ viết tắt của bạn nên mình viết chương trình nha)

program ct;

uses crt;

var i,n:integer;

      s:longint;

begin

clrscr;

write('nhap n:='):readln(n);

s:=0;

for i:=1 to n do s:=s+i;

writeln('tong cua n so tu nhien la:',s);

readln

end.

Cú pháp: $\text{for <biến đếm>:= (gtđầu)   to  (giá trị cuối )} $

Thành phần 

For,to,do : từ khóa

Biến đếm : phải khai báo

Giá trị đầu và cuối : đề bài cho,phải thuộc kiểu nguyên

Vd :

For i:=3 to 6 do

Write(' homata');

*hoạt động 

Ban đầu biến điếm sẽ nhận giá trị bằng giá trị đầu sau đó ,sau mỗi vòng lặp, biến đếm tăng thêm một đơn vị (hoặc tăng thêm số đơn vị nà ta gán cho nó) cho đến khi bằng giá trị cuối của câu lệnh thì kết thúc