uses crt;
var s:string;
tong:integer;
i,so:byte;
BEGIN
clrscr;
write('Nhap xau:'); readln(s);
tong:=0;
for i:=1 to length(s) do
if s[i] in ['1'..'9'] then
begin
val(s[i],so);
tong:=tong+so;
end;
write('Tong:',tong);
readln
END.
Mình chạy thử r nha, chương trình cực kì chính xác và ngắn gọn