Никита Евдокимов

Program Numbers_Maysen;
var N,k,c,i: integer; s:string; bool:boolean;
begin
read(N);
c:=0;
k:=0;

   repeat
      bool:=true;
      c:=c+1;
      str(c,s);
      for i:=1 to length(s) do  begin
         if pos(s[i], '137') = 0 then bool:=false;
      end;
      if (bool) then k := k + 1;
   until k = N;
   writeln(c);
end.

if pos(s[i], '137') = 0 then begin
  bool:=false;
  break;
end;