Nhập vào từ bàn phím 1 số nguyên N ( N <= 10100). Hãy viết chương trình Xóa đi các chữ số chẵn của số đó. Đếm xem số còn lại sau khi xóa có bao nhiêu

uses crt;
var n,i:integer;
    s:string;
begin
clrscr;
readln(n);
str(n,s);
for i:=1 to length(s) do if s[i] in [‘2′,’4′,’6′,’8′,’0’] then delete(s,i,1);
write(s);
readln;
end.