Найти цифру, на которую оканчивается число A^B

function GetLastDigitOfPower(A,B: integer): integer;
begin
  if B = 0 then Result := 1
  else begin
    var lastDigitCycle: List<integer> := [];
    var currentBase := A mod 10; 
      repeat
      lastDigitCycle.Add(currentBase);
      currentBase := (currentBase * A) mod 10;
      until lastDigitCycle.Contains(currentBase);
 
    var cycleLength := lastDigitCycle.Count;
    var index := (B - 1) mod cycleLength;
    Result := lastDigitCycle[index];
  end;
end;
 
begin
  var base:=ReadInteger('Введите A (1 ≤ A ≤ 10000): ');
  var exponent:=ReadInteger('Введите B (1 ≤ B ≤ 10000): ');
 
  if not (base in 1..10000) or not (exponent in 1..10000) then
  begin
    WriteLn('A и B должны быть в диапазоне от 1 до 10000.');
    Exit;
  end;
 
  var lastDigit := GetLastDigitOfPower(base, exponent);
  WriteLn($'Последняя цифра числа {base}^{exponent} равна: {lastDigit}');
end.

  WriteLn($'Последняя цифра числа {base}^{exponent} равна: {lastDigit}');
  //эквивалент
  WriteLn('Последняя цифра числа ', base, '^', exponent, ' равна: ', lastDigit);

function PowerLastDigit(a, b: Integer): Integer;
begin
  Result:=1;
  while b>0 do 
    if Odd(b) then begin
      Result:=Result*a mod 10;
      Dec(b);
    end else begin
      a:=Sqr(a) mod 10;
      b:=b div 2;
    end;
end;

function PowerLastDigit(a, b: Integer): Integer;
begin
  Result:=1;
  for b:=0 to (b-1) mod 4 do
    Result:=Result*a mod 10;
end;

function PLD(const a, b: integer): byte;
type
  ar=array[0..9, 0..3] of byte;
const
  D:ar=((0,0,0,0),(1,1,1,1),(6,2,4,8),(1,3,9,7),(6,4,6,4),(5,5,5,5),(6,6,6,6),(1,7,9,3),(4,8,4,8),(1,9,1,9));
begin
  PLD := D[a mod 10, b mod 4];
end;

##
var (a, b) := ReadInteger2;
BigInteger.ModPow(a, b, 10).Print

## 
var(a,b):=ReadInteger2;
BigInteger.ModPow(a,b,10).Print

### var(a,b):=RI2;BI.ModPow(a,b,10).Pr