Predugo vreme izvrsenja programa

resavao sam zadatak u kome treba da se odredi poslednja cifra !(faktor i el) nekog broja i nece da mi prihvati poslednja 3 resenja jer je vreme izvrsenja zadatka predugacko. Da li mozete da mi pomognete. Evo koda

program proizvod;
var s,p,n,i:integer;
begin
readln(n);
p:=1;
for i:=1 to n do
p:=p*i;
while p mod 10 = 0 do
p:=p div 10;
s:=p mod 10;
writeln(s);
end.

Cini mi se da z-trening malo brljavi... nije problem u vremenu. U integer ce maksimalno da ti stane broj 32767, a vec 8! je vece od toga. Bilo je vec par tema o proizdovu, pretrazi malo forum ;)