Найдите произведение Пятизначных чисел кратных 2000

В исполнителе ABC Pascal

PascalABC не позволяет считать столь большие числа, но если бы он позволял делать это, то следующий код работал бы:

program z1; vara, i: longint; begina : = 1;

i : = 10000;

while (i < 100001) dobegina : = a * i; i : = i + 2000; end; writeln (a) ; end.