没有这样的函数,需要用户自己处理。你可以看下下面的方式。
variable:A[15]=0;
VARIABLE:b[15]=0;
A[1]:=110;
A[2]:=23;
A[3]:=33;
A[4]:=42;
A[5]:=533;
A[6]:=60;
A[7]:=72;
A[8]:=90;
A[9]:=8;
A[10]:=15;
A[11]:=115;
A[12]:=235;
A[13]:=155;
A[14]:=1125;
A[15]:=135;
for n=2 to 10 do b[n]:=a[n];
for n=1 to 15 do
BEGIN
Bb:=HOD2(b,0,b[n]);
if bb=1 then cc:=b[n];
end
b1:cc;