VCT tính tích S=1*2*3*…*n (n<=100) kiểu dữ liệu cho đúng nghe

uses crt;

var i,n: integer;

        s: qword;

begin

clrscr;

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

s:=1; {nếu ko gán thì s=0, mà s=0 thì nhân bao nhiêu cũng =0}

for i:=1 to n do s:=s*i;

writeln (‘tong la: ‘,s);

readln;

end.