giải hộ e vs ạ bài khó hiểu quá pascal nha

const
fi='tancung.inp';
fo='tancung.out';
var f,g:text;
        a, n, d, ans, s : longint;

begin
        assign(f,fi);reset(f);
        assign(g,fo);rewrite(g);
        readln(f,a,n);
        ans := 1 ;
        while (n > 0) do
        begin
                d:=1 ; s := a ;
                while ( (d*2) <= n) do
                begin
                        d := d * 2 ;
                        s := (s * s) mod 10 ;
                end;
                dec(n,d);
                ans := (ans * s) mod 10 ;
        end;
        writeln(g,ans);
        close(f);close(g);
end.