Viết chương trình pascal tính n! (n<9)

uses crt;

var n:byte;

    gt:longint;

BEGIN

        clrscr;

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

        gt:=1;

        while n>=2 do

        begin

                gt:=gt*n;

                dec(n);

        end;

        write(gt);

        readln

END.

Chúc bạn hc tốt!