Вывести на экран все последовательности длины n, состоящие из десятичных цифр, согласно условию

var a:integer;
procedure find(n:integer);
var min,max,i,s,c,o,se:integer;
begin
min:=1;
max:=1;
for i:=1 to (n-1) do
min:=min*10;
for i:=1 to n do
max:=max*10;
max:=max-1;
for i:=min to max do
begin
for c:=1 to (length(inttostr(i))-1) do
begin
if (inttostr(i)[c]='1') and (inttostr(i)[c+1]='1') then
o:=1;
end;
for c:=1 to (length(inttostr(i))-2) do
begin
if (inttostr(i)[c]='7') and (inttostr(i)[c+1]='7') and (inttostr(i)[c+2]='7') then
se:=1;
end;
if (o<>1) and (se<>1) then
writeln(i);
end;
end;
begin
readln(a);
find(a);
end.

procedure Gen(n : Integer; s : String);
begin
  if n = 0 then s.Print
  else
    for var i := '0' to '9' do
      begin
        var t := s+i;
        if Not t.contains('11') and Not t.contains('777') then Gen(n-1, t);
      end;
end;
 
begin
  Gen(ReadInteger,'');
end.