uses crt;
const s:string='0123456789';
var a,b,x,s1,s2:string;
i,j,d,p,code,l:integer;
begin
repeat
clrscr;
d:=0; l:=0;
writeln('введи строку из цифр и букв');
readln(a);
x:=' ';
for i:=1 to length(a) do
begin
b:=copy(a,i,1);
for j:=1 to length(s) do
if b=s[j] then begin inc(d); x:=x+b; end;
end;
writeln;
if d=0 then writeln('в строке нет цифр')
else
begin
write('цифры введенной строки..'); writeln(x);
writeln('их количество ...',d);
writeln;
s2:=' ';
for i:=1 to length(x) do
begin
val(x[i],p,code);
if odd(p) then begin inc(l); str(p,s1); s2:=s2+s1; end;
end;
writeln;
if l=0 then writeln('среди чисел нет нечетных') else
begin
write('нечетные цифры..'); writeln(s2);
writeln('количество нечетных цифр...',l);
end;
end;
writeln;
writeln(' для выхода клавиша ESC, для продолжения ENTER');
until readkey=#27;
end.