program Tin_Hoc;

uses crt;

var i,k:integer;

      S3 : string [130];

Begin

clrscr;

writeln('Nhap xau S3:');readln(S3);

k:=0;

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

writeln('Trong xau S3 co ',k,' ki tu la chu so');

readln;

end.