uses crt; var s: string; d,i: byte; begin clrscr; write ('nhap xau: '); readln (s); for i:=1 to length(s) do if s[i] in ['0'..'9'] then inc(d); writeln ('trong xau co ',d,' ki tu so'); readln; end.
program Hello; var i,d:longint; st:string; begin readln(st); for i:= 1 to length(st) do if (st[i] > '0') and (st[i] < '9') then inc(d); writeln(d); readln; end.