Цифры 2020 в кумире сделать алгоритм

моя улица в солнечной системе. это земля. она находится третьей от солнца. 

                                                                          нет

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.

я прикрепил прогамму. если у тебя нет чем открыть ее, открой в wordе.