|
@@ -1059,12 +1059,10 @@ begin
|
|
|
Exit;
|
|
Exit;
|
|
|
end;
|
|
end;
|
|
|
|
|
|
|
|
- raise Exception.Create(iso.ToString + ' DABA ' + count.ToString);
|
|
|
|
|
-
|
|
|
|
|
TECAlgorithms.MontgomeryTrick(zs, 0, count, iso);
|
|
TECAlgorithms.MontgomeryTrick(zs, 0, count, iso);
|
|
|
|
|
|
|
|
- // raise Exception.Create(zs[0].ToString + ' DABA ' + zs[1].ToString + ' DABA ' +
|
|
|
|
|
- // zs[2].ToString + ' DABA ' + zs[3].ToString + ' DABA ' + zs[4].ToString);
|
|
|
|
|
|
|
+ raise Exception.Create(zs[0].ToString + ' DABA ' + zs[1].ToString + ' DABA ' +
|
|
|
|
|
+ zs[2].ToString + ' DABA ' + zs[3].ToString + ' DABA ' + zs[4].ToString);
|
|
|
|
|
|
|
|
for j := 0 to System.Pred(count) do
|
|
for j := 0 to System.Pred(count) do
|
|
|
|
|
|