*Cú Pháp: For<biến đếm>:=<Giá trị đầu> to <Giá trị cuối> do <Câu lệnh>;
Ví dụ: For i:=1 to 100 do đếm:=đếm+1;
*Lưu ý: Giá trị đầu phải bé hơn giá trị cuối.
*Các đại lượng của vòng lặp: biến đếm, giá trị đầu, giá trị cuối là kiểu số nguyên.
*Viết chương trình:
Program in_so;
Var i:integer;
Begin
For i:=-1 to 20 do write(i,' ');
Delay(2000);
Readln;
End.