Bài 1:
- Cú pháp: For <biến đếm>:=<giá trị đầu> to <giá trị cuối> do <câu lệnh>
- Giải thích từ ngữ: 
+ For, to, do: Các từ khóa
+ Biến đếm: Biến dùng để chạy từ <giá trị đầu> đến <giá trị cuối>
+ GTĐ, GTC: Các số nguyên, GTĐ<GTC
Bài 2:
Program FNG;
Uses crt;
Var n,i: longint;
    s: qword;
Begin
        Clrscr;
        Write('Nhap n: '); Readln(n);
        s:=1;
        For i:=2 to n do s:=s*i;
        Write('S  = ',s);
        Readln
End.
Bài 3:

Program FNG;
Uses crt;
Var n,i: longint;
    s: qword;
Begin
        Clrscr;
        Write('Nhap n: '); Readln(n);
        s:=1; i:=1;
        While i<=n do
        Begin
                s:=s*i;
                inc(i);
        End;
        Write('S = ',s);

        Readln
End.

Câu 1 :

- Cú pháp : For <biến đếm> := <giá trị đầu> to <giá trị cuối> do <câu lệnh>;

- Trong đó :

+ Biến đếm thường là biến nguyên

+ Giá trị đầu, giá trị cuối phải cùng kiểu dữ liệu với biến đếm

+ Giá trị đầu ≤ Giá trị cuối

+ For, to, do là các từ khoá

+ Câu lệnh có thể là câu lệnh đơn hoặc ghép

Câu 2 :

- Dùng For .. do

uses crt;

var i, S, N : integer;

begin

clrscr;

S := 0;

write('Nhap so N = '); readln(N);

for i := 1 to N do S := S + i;

write('S = ', S);

readln

end.

- Dùng While .. do

uses crt;

var i, S, N : integer;

begin

clrscr;

i := 1; S := 0;

write('Nhap so N = '); readln(N);

while i <= N do

begin S := S + i;

i := i + 1; end;

write('S = ', S);

readln

end.