Changed zero polynomial resulting from scaling to have one coefficient

UPolynomial.pas

@@ -88,8 +88,10 @@ begin
       factor := factor * AScaleFactor;
     end;
   end
-  else
-    SetLength(Result.FCoefficients, 0);
+  else begin
+    SetLength(Result.FCoefficients, 1);
+    Result.FCoefficients[0] := TBigInt.Zero;
+  end;
 end;
 
 function TBigIntPolynomial.IsEqualTo(const AOther: TBigIntPolynomial): Boolean;