Вывести все четные цифры строки.

[Алексаndra]

Дана строка символов, содержащая цифры. Вывести все четные цифры строки.

[Serge_Bliznykov]

for i:=1 to length(s) do
 if Pos(s[i],'02468')>0 then Write(s[i]);

[Filka]

for I := 1 to Length(S) do
  if (S[I] in ['0'..'9']) and ((Ord(S[I]) and 1) = 0) then
    WriteLn(S[I]);