14 task

begin
  var a := BigInteger.Pow(8, 2020) + BigInteger.Pow(4,2017) + 26bi - 1bi;
  var a_2 := '';
  while (a>0) do
  begin
    a_2 += (a mod 2).ToString;
    a := a div 2;
  end;
  print(a_2.Count(x -> x = '1'));
end.