uses crt; var a,n:qword; procedure pow; var dv,lt,r:qword; i:longint; begin dv:=a mod 10; lt:=1; if n=0 then write(1) else if(dv=0)or(dv=1)or(dv=5)or(dv=6)then write(dv) else if(dv=3)or(dv=7)or(dv=9)then begin r:=n mod 4; for i:=1 to r do lt:=lt*(a mod 10); write(lt mod 10); end else if(dv=2)or(dv=4)or(dv=8)then begin r:=n mod 4; for i:=1 to r do lt:=lt*(a mod 10); write(6*lt mod 10); end; end; begin clrscr; read(a,n); pow; readln;readln; end.
uses crt; var a,n,k,lt,i:longint; begin clrscr; write('Nhap a,n: ');readln(a,n); k:=a mod 10; lt:=1; while i<n do begin inc(i); lt:=(lt*k)mod 10; end; writeln(lt mod 10); readln; end.