program bai_giai;
uses crt;
var m:longint;
    n:qword;
    kq,i,j:byte;
begin
    clrscr;
    write('Nhap m: ');  readln(m);
    write('Nhap n: ');  readln(n);
    m:=m mod 10; kq:=m; j:=(n mod 4)+3;
    for i:=1 to j do
        begin
            kq:=kq*m;
            kq:=kq mod 10;
        end;
    write(kq);
    readln;
end.

Nhân lấy số cuối nên số m chỉ cần số cuối.

Và lấy j=(n mod 4)+3 vì cứ nhân 4 lần thì sẽ quay lại số như -4 lần trước đó nên chỉ lấy n mod 4, cộng thêm 3 để tính cho phù hợp.

Phải làm như vậy vì n<10^16 thì vòng lặp thực hiện rất nhiều, cực kì nhiều lần dẫn đến chạy rất chậm.

uses crt;
var m,n:qword;
function pow(a:byte;n:qword):byte;
var dv,lt:qword;
    i:byte;
begin
    lt:=1;
    if (a=0) or (a=1) or (a=5) or (a=6) or (n=1) then exit(a);
    n:=n mod 4;
    if (a=3) or (a=7) or (a=9) then
         begin
            for i:=1 to n do lt:=lt*a mod 10;
            exit(lt mod 10);
         end;
    if (a=2) or (a=4) or (a=8) then
         begin
            for i:=1 to n do lt:=lt*a mod 10;
            exit(6*lt mod 10);
         end;
end;
begin
    clrscr;
    readln(m,n);
    writeln(pow(m mod 10,n));
readln;
end.