program sotrongxau;
uses crt;
var st,st2:string;
i:byte;
begin
clrscr;
write('Nhap xau: '); readln(st);
st2:='';
write('Cac so co trong xau la: ');
for i:=1 to length(st) do
if st[i] in ['0'..'9'] then st2:=st2+st[i]
else
begin
write(st2,' ');
st2:='';
end;
readln
end.