làm câu đầu tiên thôi cũng đc ạ

var n,i,d,s,m:longint;
begin
      assign(input,'nhap.inp');reset(input);
      assign(output,'xuat.out');rewrite(output);
      readln(n);
      while n<>0 do
       begin
             m:=n mod 10;
             n:=n div 10;
             inc(d);
             if m mod 2=0 then
             s:=s+m;
       end;
       writeln(d);
       write('tong:',s);
end.