uses crt;
 var s :  string;
  i, kt,t : byte;
  begin
  clrscr;
  write('Nhap xau: ');
   readln(s);
 for i:= 1 to length(s) do
       begin
 if (ord(s[i])>=48) and (ord(s[i])<=57) then
       begin
    val(s[i],kt);
      if kt mod 2=0
        then t := t + kt ;
       end ; 
     end ;
 writeln('TONG CAC SO CHAN LA: ',t);
  writeln('DO DAI XAU LA: ',length(s));
  end.

$\text{Ảnh : bảng mã ASCII}$

uses crt;

var S : string; i, Tong, a : byte;

begin

clrscr;

Tong := 0;

write('Nhap xau : '); readln(S);

for i := 1 to length(S) do

if S[i] in ['0' .. '9'] then

    begin

        val(S[i], a);

        if a mod 2 = 0 then

            Tong := Tong + a;

    end;

writeln('Tong so chan = ', Tong);

writeln('Chieu dai xau = ', length(S));

readln

end.