OJ Board

If I am not mistakeing I belive u just told me to change type to int64 and that is what I did but still WA.

Could anyone tell me why my code gets WA??

var r,b,p,m:longint;

function bigmod (var b,p,m:longint):longint;
var rez:longint;
begin
if p=0 then rez:=1
else if p mod 2 =0 then begin p:=p div 2; rez:=sqr(bigmod (b,p,m)) mod m; end
else begin dec (p); rez:=((b mod m)*bigmod (b,p,m) mod m) mod m ...