С клавиатуры вводится строчка, состоящая из чисел, разбитых одним пробелом. Составить

// PascalABC.NET 3.2, сборка 1439 от 09.05.2017
// Внимание! Если программка не работает, обновите версию!

function SumDig(n:integer):integer;
begin
  Result:=0;
  while ngt;0 do begin
    Result+=n mod 10;
    n:=n div 10
    end
end;

begin
  var s:=ReadlnString.ToIntegers.Select(n-gt;SumDig(n)).JoinIntoString('');
  s.Println
end.

Пример
123 4355 12 221 9865620 32331 223234 12232
6173536121610