Var x:Integer ;
Begin
Writeln('x=') ;read(x) ;
While x>0 do begin
If x mod 10<5 then write(' ', x mod 10);
X :=x div 10;end;
End.
Var x:Integer ;
Begin
Writeln('x=') ;read(x) ;
While x>0 do begin
If x mod 10<5 then write(' ', x mod 10);
X :=x div 10;end;
End.