function pxe(a,b: integer): integer; begin x,y,z:=a,b,1; while y > 0 do begin while even(y) do x,y:=x²,y/2; y,z:=y-1,x*z end; pxe:=z end;