Mình đang cần nộp gấp hãy giúp mình : Câu 1 : Hãy viết chương trình con tính N giai thừa ( N nguyên)?

program ct;

uses crt;

var i,n:integer;

      gt:longint;

begin clrscr;

   write(‘Nhap so n: ‘); readln(n);

     gt:=1;

   for i:=1 to n do

     gt:=gt*i;

   writeln(n,’ giai thua la: ‘,gt);

readln;

end.