Verified answer

uses crt;

var i,tong:integer;

n:longint;

begin

clrscr;

writeln('Nhap n=');readln(n);

tong:=0;

while n>0 do

begin

i:=n mod 10;

n:=n div 10;

if i mod 2= 0 then

begin

tong:=tong+i;

write(i,'+');

end;

end;

writeln('=',tong);

readln;

end.