Verified answer

var d,i:integer;

s:string;

Begin

  read(d);

  s:=str(d);

  for i:= 1 to length(s) do

     if int(s[i]) mod 2=0 then

        writeln(s[i]);

End.