Число в степень

var a,b,c,d,i:longint;
begin
  c:=1;
  read(a,b);
  for i:=1 to b do
    c:=c*a;
  d:=c;
  if d div 100000 = 0 then
    writeln(c)
  else writeln(c mod 1000000);
end.

## BigInteger.Pow(ReadInteger, ReadInteger).Println;

## var(a,b):=ReadInteger2;
var r:=1;
loop b do r:=(r*a)mod 1000000;
r.Print;

## 
  var (a, b) := ReadInteger2;
  SeqFill(b, a).Aggregate(1, (p, x) -> p * x mod 1000000).PrintLn

##
var a := Random(1, 10);
var b := Random(100000000, 1000000000);
$'{a}^{b}'.Println;
 
Milliseconds;
var r1 := BigInteger.ModPow(a, b, 1000000);
Println('t1 =', MillisecondsDelta / 1000);
r1.Println;
 
Milliseconds;
var r2 := 1;
loop b do r2 := (r2 * a) mod 1000000;
Println('t2 =', MillisecondsDelta / 1000);
r2.Println; 
 
Milliseconds;
var r3 := SeqFill(b, a).Aggregate(1, (p, x) -> p * x mod 1000000);
Println('t3 =', MillisecondsDelta / 1000);
r3.Println;

## BigInteger.ModPow(ReadInteger('n ='), ReadInteger('e ='), 1000000)
.ToString('000000').Print;

##
$'{BigInteger.ModPow(ReadInteger, ReadInteger, 1000000):D6}'.Print

## 
  var (a, b) := ReadInteger2;
  SeqFill(b, a).Aggregate(1, (p, x) -> p * x mod 1000000).ToString('000000').PrintLn

.Print('')

##
var s:= BigInteger.ModPow(ReadInteger, ReadInteger, 1000000).ToString;
for var i:= 1 to 6-s.Length do
  s:= '0'+s;
write(s);

## 
  var (a, b) := ReadInteger2;
  Write(SeqFill(b, a).Aggregate(1, (p, x) -> p * x mod 1000000).ToString('000000'))