Tính n! ngắn gọn nhất (tính giai thừa)

Một trong những bài toán cơ bản mà bắt buộc các học sinh phải nắm khi lập trình Pascal đó là bài tìm giai thừa của n!


Uses crt; 
Var i,n,gt: integer; 
Begin Clrscr; 
     Write('Nhap n ='); 
     readln(n); 
     gt:=1; 
     For i:=1 to n do gt:=gt*i; 
     Writeln(n, '!= ',gt); 
  Readln; 
End.