Назовем натуральное число сверхнечетным, если оно состоит только из нечетных цифр. Требуется для заданного значения n найти n-е по счету сверхнечетное число. Вход: файл input.txt, содержащий только натуральное число n. Ограничения: 1 ≤ n ≤ 1000000. Выход: файл output.txt, содержащий одно натуральное число – n-е по счету сверхнечетное число. Пример: input.txt output.txt 13 35

Program Pr1;uses crt;var fl1,fl2:text;i,n,v,a,b:integer;Beginclrscr;assign(fl1,'input.txt');assign(fl2,'output.txt');reset(fl1);readln(fl1,n);v:=0;for i:=1 to 1000000 do begin if i>=10 then begin a:=i div 10; b:=i mod 10; if (a mod 2<>0) and (b mod 2<>0) then v:=v+1; end else if i mod 2<>0 then v:=v+1; if v=n then break; end;rewrite(fl2);writeln(fl2,v);close(fl1);close(fl2);end.

Все работает я проверил