Вывести последнюю цифру a^b - Pascal

Даны числа а и b. Вывести последнюю цифру от а^b при 1<=a, b<=100000 не использую длинную арифметику.

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

var
a,b,i:longint;
rez:integer;
begin
readln(a,b);
rez:=1;
for i:=1 to b do
rez:=rez mod 10* a mod 10;
writeln(rez);
end.

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

В данном коде происходит следующее:

Объявляются три переменные: a, b и i типа longint.
С помощью функции readln считываются значения переменных a и b.
Создается переменная rez типа integer и инициализируется значением 1.
Запускается цикл for, который выполняется b раз (где b - это второе считываемое значение).
Внутри цикла выполняется операция:
- rez = rez mod 10 * a mod 10;
- Это операция деления с остатком, которая используется для получения последней цифры числа a^b.
После выполнения цикла выводится значение переменной rez. Таким образом, данный код позволяет вывести последнюю цифру числа a^b.