Dữ liệu vào: Tiếp tin văn bản LUYTHUA INP chia 2 số nguyên dương X và N cách nhau tối thiểu một khoảng trắng, 10X=32060,IỄNSIỜ) Du Hiệu rat Tệp tin văn bàn LUYTHỪA.OUT Vi kết quả có thể là 1 số rất lớn vì vậy chỉ cần ghi vào tập 3 số cuối của kết quả lũy thira X (X mod 10) cứu em bài này với ạ

var
  a, n: int64;

function power(a, n: int64): int64;
begin
  if n = 0 then
    power := 1
  else
  begin
    power := power(a, n div 2);
    if n mod 2 = 0 then
      power := (power * power) mod 1000
    else
      power := ((power * power) mod 1000 * a) mod 1000;
  end;
end;

begin
  assign(input, 'LUYTHUA.inp');
  assign(output, 'LUYTHUA.out');
  reset(input);
  rewrite(output);

  readln(a, n);
  writeln(power(a, n));

  close(input);
  close(output);
end.