uses crt;

var s1,s2: string;

i,d1,d2: byte;

begin

assign (input,'Dulieu.txt');  reset(input);

assign (output,'KQ.txt');  rewrite(output);

readln (s1);

readln (s2);

d1:=0;

d2:=0;

for i:=1 to length (s1) do

if s1[i] in ['0'..'9'] then d1:=d1+1;

for i:=1 to length (s2) do

if s2[i] in ['0'..'9'] then d2:=d2+1;

if d1>d2 then writeln (d1)

else writeln (d2);

close(input);

close(output);

end.

$#Trumtinhoc$

$\text{uses crt;}$

$\text{var s1,s2: string;}$

$\text{i,d1,d2: byte;}$

$\text{begin}$

$\text{assign (input,'Dulieu.txt');  reset(input);}$

$\text{assign (output,'KQ.txt');  rewrite(output);}$

$\text{readln (s1);}$

$\text{readln (s2);}$

$\text{d1:=0;}$

$\text{d2:=0;}$

$\text{for i:=1 to length (s1) do}$

$\text{if s1[i] in ['0'..'9'] then d1:=d1+1;}$

$\text{for i:=1 to length (s2) do}$

$\text{if s2[i] in ['0'..'9'] then d2:=d2+1;}$

$\text{if d1>d2 then writeln (d1)}$

$\text{else writeln (d2);}$

$\text{close(input);}$

$\text{close(output);}$

$\text{end.}$