Natural

var i,z,n:integer;
begin
write('Введите число: ');
readln(n);
for i:=1 to 30 do begin
z:=n mod 10;
if (z mod 2 = 0) then write(z, ' ');
n:=n div 10;
if (n=0) then break;
end;
end.