отжимания

function pow_n(x, y, m: integer): integer;
var i, p: integer;
begin
  p := 1;
  for i := 1 to y do p := p * x mod m;
  pow_n := p
end;
 
var a, b, n, m, k: integer;
begin
  readln(a, b, n, m, k);
  writeln((pow_n(a, n, k) + pow_n(b, m, k)) mod k)
end.

var a, b, n, m, k, an, bm: integer;
begin
  readln(a, b, n, m, k);
  an := 1;
  bm := 1;
  for n := 1 to n do an := an * a mod k;
  for m := 1 to m do bm := bm * b mod k;
  writeln((an + bm) mod k)
end.

function pow_n(x, y, m: integer): integer;
var i, p, xy: integer;
begin
  p := 1;
  xy := x
  while y > 0 do
    begin
      if y mod 2 = 1 then p := p * xy mod m;
      xy := xy * xy mod m;
      y := y div 2
    end;
    pow_n := p
end;
 
var a, b, n, m, k: integer;
begin
  readln(a, b, n, m, k);
  writeln((pow_n(a, n, k) + pow_n(b, m, k)) mod k)
end.

var a, b, n, m, k, an, bm, t: integer;
begin
  readln(a, b, n, m, k);
  an := 1;
  t := a;
  while n > 0 do
    begin
      if n mod 2 = 1 then an := an * t mod k;
      t := t * t mod k;
      n := n div 2
    end;
  bm := 1;
  t := b;
  while m > 0 do
    begin
      if m mod 2 = 1 then bm := bm * m mod k;
      t := t * t mod k;
      m := m div 2
    end;
  writeln((an + bm) mod k)
end.

z := z div 2

z := z shr 1

if z mod 2 = 1

if z and 1 = 1