Nhập vào một số n nguyên dương,tính tổng các số hạng chẵn trong số n đó

program tong_chan;

uses crt;

var n:longint;

      t,so:byte;

begin

      clrscr;

      write(‘Nhap n: ‘);  readln(n);

      t:=0;

      while n>0 do

            begin

                  so:=n mod 10;

                  if so mod 2=0 then t:=t+so;

                  n:=n div 10;

            end;

      writeln(‘Tong cac chu so chan la: ‘,t);

      readln;

end.