Найдите сумму цифр данного 7-значного числа стоящие в разрядах миллионов, 10-ов

Число дано через пробел?

//Если число дано через пробелы(как в условии: 1 234 567)

begin
  var a := ReadInteger;
  var b := ReadInteger mod 100;
  var c := b div 10;
  b := b mod 10;
  ReadInteger;
  Writeln(a + b + c);
end.

Пример:
1 234 567
8

//Если число дано строчкой

begin
  var a := ReadString;
  var b := new Integer[a.Length];
  for var i := 1 to a.Length do
    b[i - 1] := a[i].ToDigit;
  Writeln(b[0] + b[2] + b[3]);
end.

Пример:
6894354
19