program Min;
uses crt;
const so=['1','3','5','7','9'];
var s:string; i:integer;
begin
clrscr;
write('Nhap day so: '); readln(s);
i:=1;
while i<=length(s) do
if s[i] in so then
begin
delete(s,i,1);
i:=1;
end
else inc(i);
write('Sau khi xoa cac so le va bien doi doi xung, ta thu duoc day:',s);
for i:=length(s) downto 1 do write(s[i]);
readln
end.
Bạn tham khảo nhé, chỗ nào chưa hiểu mình sẽ hướng dẫn thêm.