uses crt;

var S : string; i, j, k, t : integer;

function KT (x : string) : byte;

    begin

        KT := 0;

        for i := 1 to length(S) do

            if S[i] in ['0' .. '9'] then

                begin

                    KT := 1;

                    break;

                end;

    end;

function TS (x : byte) : string;

    begin

        TS := '';

        for j := x to length(s) do

            if s[j] in ['0' .. '9'] then TS := TS + S[j]

            else break;

    end;

begin

clrscr;

readln(s); t := 0;

while KT(s) = 0 do

    begin

        write('Nhap sai! Yeu cau nhap lai : ');

        readln(s);

    end;

i := 1; while i <= length(s) do

    if s[i] in ['0'.. '9'] then

        begin

            val(TS(i), j);

            t := t + j;

            i := i + length(TS(i));

        end

    else i := i + 1;

writeln('Chuoi da nhap : ', s);

writeln('Tong cac so co trong chuoi : ', t);

readln

end.