输入：三个不超过 10000 的正整数 x，p，m。
输出：xp mod m 的值。
提示：若 p 为偶数，xp=(x2)p/2；若 p 为奇数，xp=x*(x2)(p-1)/2。
var x, p, m, i, result : longint; begin read(x, p, m); result := 1 ; while ( 2 ) do begin if (p mod 2 = 1) then result := 3 ; p := p div 2; x := 4 ; end; write( 5 ); end.
