Найдите три последние цифры производителя 1*2**18

Последние 3 цифры ПРОИЗВЕДЕНИЯ: 000
Это очевидно, так как в произведение входят сомножители 2, 5, 10, 12, 15
Это можно показать также с программы, в которой определяются последние 4 цифры:
var p,i:integer;
begin
p:=1;
for i:=2 to 18 do p:=p*i mod 10000;
writeln(p);
end.

Результат:
8000

Если вместо mod 10000 написать mod 1000, то в результате получим 0