[PhoeniX]

вроде бы нужный тебе вариант такой:

Код:

uses ... , ... , Math;

...
...

begin
  B:=IntPower(A,Kb) mod p;
end;

запускать не пробовал, но вроде всё так.