Bạn có thể sử dụng đoạn code trên trong Free Pascal để chạy chương trình và tạo ra tệp LUYTHUA.OUT chứa 3 số cuối của kết quả lũy thừa

Đáp án:

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.