Ba số cuối

Nhập số nguyên dương m ( 100 < m < Maxlnt = 32767 ). Tìm ba chữ số cuối của m!. Chương trình có thể tính được với số m lớn nhất là bao nhiêu?

                                                                 Giải

Var m,i,j,gt,a:integer;
Begin
   Write('Nhap m: '); readln(m);
   gt:=1;
   for i:=1 to m do
       begin
           a:=(i mod 1000);
           gt:=gt*a;
           gt:=(gt mod 1000);
       end;
   Write('Ba so cuoi la: ',gt);
   Readln;
End.