II
2
Giống nhau: đều là vòng lặp để lặp lại một đoạn lệnh nào đó 
Khác nhau:
-Vòng lặp For: lặp theo số lần hữu hạn 
-Vòng lặp While: kiểm tra điều kiện rồi mới thực hiện lệnh bên trong, đôi khi lặp vô hạn nếu điều kiện lặp không bao giờ sai.

II
 uses crt;
var n,i,tich:integer;
begin
clrscr;
      tich:=1;
      write('Nhap n:');readln(n);
      for i:=1 to n do tich:=tich*i;
      write('Tich so tu 1 den ',n,' la:',tich);
readln;
end.