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

Var a,b:integer;
begin
writeln('Введите число');
readln(a);
writeln('Введите цифру');
read(b);
if ((a mod 10)<>b) and ((a div 10)<>b) and (a<100) then begin
a:=a+1;
write(" ",a);
end;
end.