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

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

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


123 4355 12 221 9865620 32331 223234 12232
6173536121610