Назовем натуральное число сверхнечетным, если оно состоит только из нечетных цифр. требуется для заданного значения 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;
Begin
clrscr;
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.

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