Вам даны число N и цифра D. Выведите все N-значные числа, которые не содержат цифру D, в возрастающем порядке.

Извращенно, но главное, что работает:
uses crt;
var n,d,j,m:integer;
i,k:string;
flag:byte;
begin
read(n,d);
i:=1;
k:=9;
while length(i)begin
i:=concat(i,0);
k:=concat(k,9);
end;
for j:=strtoint(i) to strtoint(k) do
begin
flag:=1;
for m:=1 to length(inttostr(j)) do
if strtoint(inttostr(j)[m])=d then
flag:=0;
if flag=1 then 
write(inttostr(j), );
end;
end.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.