Đáp án:

Var i,n:integer;

      P: Longint;

Begin

    writeln(' Nhap n ');readln(n);

        P:=1;

        For i:=1 to n do;

        P:=P*i;

      writeln( ' Tich cua n so tu nhien la ', P);

   Readln;

End.

- Lỗi :

1. Var i n : Interger;

⇒ Thiếu dấu phẩy ngăn cách giữa hai biến

⇒ Sai tên kiểu dữ liệu Integer

2. Writeln ( nhap n ), Readln ( n );

⇒ Thiếu dấu nháy đơn ở xâu kí tự

⇒ Sai dấu chấm phẩy ngăn cách giữa hai câu lệnh

3. P = 1;

⇒ Sai dấu gán

4. For i : = 1 to n do;

⇒ Sai cú pháp, dư dấu chấm phẩy

5. Writeln ( ' tich cua n so tu nhien la ' , );

⇒ Thiếu in giá trị biến P

- Sửa :

Var i, n : Integer ;

    P : Longint ;

Begin

    Writeln ('Nhap n = '); Readln (n) ;                        

    P := 1 ;                                                                  

    For i := 1 to n do

        P := P * i ;

    Writeln ('Tich cua n so tu nhien la ', P) ;

Readln;

End.