uses crt;
var s,s1,s2: string;
i: byte;
begin
clrscr;
write ('nhap xau s: '); readln (s);
for i:=1 to length(s) do
if (s[i]='1') or (s[i]='3') or (s[i]='5') or (s[i]='7') or (s[i]='9') then s1:=s1+s[i]
else s2:=s2+s[i];
writeln ('xau so le la: ',s1);
writeln ('xau so chan la: ',s2);
readln;
end.