program arvest;
var
i:integer;
kokku:integer;
kood:integer;
arvs6na:string;
arv:integer;
lause:string;
begin
writeln('Kirjuta lause, kus tuleb kokku liita selles lauses esinevad numbrid.');
readln(lause);
lause:=lause+' ';
kokku:=0;
for i:=1 to length(lause) do
if (ord(lause[i])>=48) and (ord(lause[i])<=57) then
arvs6na:=arvs6na+lause[i]
else
begin
val(arvs6na,arv,kood);
kokku:=kokku+arv;
arvs6na:='';
end;
writeln('Kokku: ',kokku);
readln;
end.