Найдите три последние цифры производителя 1*2*3...*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