uses crt;

var s : string; i, d, sum, p : integer;

begin

clrscr;

d := 0; sum := 0;

write('Nhap xau ki tu : '); readln(s);

for i := 1 to length(s) do

if s[i] in ['0' ..'9'] then d := d + 1;

while d = 0 do begin

write('Ban da nhap sai! Nhap lai chuoi co so : ');

readln(s);

for i := 1 to length(s) do

if s[i] in ['0' ..'9'] then d := d + 1;

end;

for i := 1 to length(s) do

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

begin val(s[i], p);

sum := sum + p; end;

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

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

readln

end.

uses crt;

var i,x,d,s:integer;

st:string;

begin

clrscr;

write('Nhap xau ki tu : '); readln(st);

for i:=1 to length(st) do if st[i] in ['0' ..'9'] then inc(d); f

or i:=1 to length(st) do if st[i] in ['0' ..'9'] then

begin

val(st[i],x); s:=s+x; end;

if d=0 then write('Ban da nhap sai! Nhap lai chuoi co so: ') else

begin

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

write('Tong cac so co trong chuoi: ',s);

end;

readln

end.