Program qwer;

Var
	a:char;
	s:string;
	infile:text;
Begin

	assign(infile,'yourfile.txt');
	reset(infile);
	s:='';
	repeat
		read(infile,a);
		case a of
			'0'..'9':	s:=s+a+' ';
		end;
	until eof(infile);
	
	close(infile);
	append(infile);
	writeln(infile,s);
	close(infile);
End.