http://otvet.mail.ru/question/85310872

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
  i, o, p, a: longint;
  idx: integer;
begin
  o := 0;
  p := 0;
  readln(i);
  while (i > 0) do
  begin
    a := i mod 10;
    if (not (a  in [1, 3])) then
    begin
      for idx := 1 to p do
        a := a*10;
      o := o + a;
      Inc(p);
    end;
    i := i div 10;
  end;
  writeln(o);
  readln;
end.