viết chương trình tính tích n! .Biến n! được nhập từ bàn phím

program giaithua;

uses crt;

var n,i:byte;

      gt:int64;

begin

       clrscr;

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

       gt:=1;

       for i:=2 to n do

              gt:=gt*i;

       write(n,’!= ‘,gt);

       readln;

end.