program odin; 
var a,b,c,d,f:integer; 
 tmp:string;
begin 
writeln('Введите первое число диапозона'); 
read(a); 
writeln('Введите второе число диапозона'); 
read(b); 
 for c:=a to b do 
 begin 
  tmp:=inttostr(c);
 if pos(inttostr(6),tmp)=0 then 
 writeln(c); 
 end; 
 readln;
readln;
 end.