/NUMFINAL1 - Lại là chữ số tận cùng

<Problem>

http://ntucoder.net/Problem/Details/5529
              Uses Crt;
        Var s:ansistring; a,n:longint;
        Begin
            readln(s);
            a:=ord(s[length(s)])-48;
            readln(s);
            val(copy(s,length(s)-1,2),n);
        
            if (n mod 4=0) then writeln(a*a*a*a mod 10)
             else
              if (n mod 4=1) then writeln(a mod 10)
               else
                if (n mod 4=2) then writeln(a*a mod 10)
                 else
                  if (n mod 4=3) then writeln(a*a*a mod 10);
            readln;
        End.