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.
