Viết chương trình nhập 1 xâu từ bàn phím, đếm số lượng kí tự là chữ số có trong xâu vừa nhập

program dem_so;

uses crt;

var s:string;

     i,d:byte;

begin

       clrscr;

       write(‘Nhap xau: ‘);  readln(s);

       d:=0;

       for i:=1 to length(s) do

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

       write(‘Co ‘,d,’ ki tu la chu so’);

       readln;

end.