Câu 1 :

Cú pháp lặp với số lần biết trước:

* Tiến

     For (biếm đến) := (GT đầu) to (GT cuối) do (câu lệnh) ;

* Lùi

     For (biếm đến) := (GT cuối) downto (GT đầu) do (câu lệnh) ;

=> Trong đó : - for, to, do, downto là từ khóa

                       - biếm đến : kiểu nguyên hoặc kiểu kí tự

                       - GT đầu, GT cuối : cùng kiểu với biến đếm (GT đầu <= GT cuối)

                       - câu lệnh là 1 câu lệnh của Pascal

Câu 2 :

a,

program y_a;

uses crt;

var i, n : integer;

      T : real;

begin  

   write ('Nhap n');

   read (n);

   T := 1;

   for i := 1 to n do T := T * i ;

   write ('Tich ', n, 'so tu nhien dau la : ', T : 10 );

   readln;

end.

b,

program y_b;

uses crt;

var i, n : integer;

      T : real;

begin  

   write ('Nhap n');

   read (n);

   T := 1;

   i := 1;

   while i <= n  do

          begin   T := T * i ;

                      i := i + 1;

           end;

   write ('Tich ', n, 'so tu nhien dau la : ', T : 10 );

   readln;

end.