Program Nhap_Xuat_File;
Uses crt;
var i,m:integer;
a,b,c:string;
Procedure Nhap;
var f:text;
begin
Assign(f,'B.INP');
Reset(f);
Readln(f,a);
Close(f);
end;
Procedure Xuat;
var f:text;
begin
Assign(f,'B.OUT');
Rewrite(f);
Writeln(f,b);
Writeln(f,c);
Close(f);
end;
Procedure Xoa_Cach(m:integer);
begin
for i:=1 to m do
if(a[i] <> ' ') then
b:=b+a[i];
end;
Procedure Ky_Tu_So(m:integer);
begin
for i:=1 to m do
if(a[i] in ['0'..'9']) then
c:=c+a[i];
end;
begin
Nhap;
m:=Length(a);
Xoa_Cach(m);
Ky_Tu_So(m);
Xuat;
end .
Dương Thiên Vyvy~~~~~~~~~~~