uses BigInt;
var A,B,C: TBigInt;
begin
 StrToBig('698465618676954',A);
 StrToBig('787764568798645',B);
 Mul(A,A,B);
 StrToBig('3848624735242929240',B);
 Add(A,A,B);
 StrToBig('19765416174515758751',B);
 DivMod(A,B,C);
 Writeln(BigToStr(A));
 if BigInt.Overflow then writeln('Nastalo preteceni.');
end.