Найти остаток от деления 17^2005 на 20 - Pascal

Формулировка задачи:

не могу решить задание найти остаток от деления 17^2005 на 20

Решение задачи: «Найти остаток от деления 17^2005 на 20»

Листинг программы

Function ModExp(a, d, m: LongInt): LongInt;
Var b: LongInt;
Begin
b := 1;
While (d > 0) do
      Begin
      If (d mod 2 = 0) then
         Begin
         d := d div 2;
         a := (a * a) mod m;
         End
      Else
         Begin
         Dec(d);
         b := (b * a) mod m;
         End;
      End;
ModExp := b;
End;

Объяснение кода листинга программы

В функции ModExp определены три переменные: a, d и m.
Переменная b инициализируется значением 1.
Запускается цикл While, который будет выполняться до тех пор, пока d больше 0.
Внутри цикла проверяется, делится ли d на 2 без остатка.
Если это условие выполняется, то происходит внутренний цикл.
Внутренний цикл проверяет, равен ли остаток от деления d на 2, нулю.
Если это условие выполняется, то d делится на 2 и переменная a вычисляется как квадрат числа a по модулю m.
Если условие из пункта 6 не выполняется, то d уменьшается на 1, а переменная b вычисляется как произведение b и a по модулю m.
После окончания внутреннего цикла значение переменной b присваивается переменной ModExp.
Цикл While завершается, и функция ModExp возвращает значение переменной ModExp.