1197

##
uses school;
var x := 6 * 343bi**1156 - 5 * 49bi**1147 + 4 * 7bi**1153 - 875;
var y := ToBase(x,7);
y.Sum(digitAsChar → digitAsChar.ToDigit).Print;
// ментор помог. И как это у него получается...
{## //должно быть 1197, а получается 13950...
uses school;
var x := 6 * 343bi**1156 - 5 * 49bi**1147 + 4 * 7bi**1153 - 875;
var y := ToBase(x,7).ToArray;
var sum: BigInteger := 0;
foreach var i in y do sum += i.ToDigit;
{while y <> 0 do
  begin
    sum += y mod 10;
    y := y div 10;
  end;
Print(sum)}