Program z5_2;
uses crt;
var n,k,i,a1,a2,a3,a4,m:integer;
BEGIN
clrscr;
writeln('Vvedite dva chisla, ne bolshe 9999');
readln(n,k);
for i:=n to k do begin
m:=i;
a4:=m mod 10; m:=m div 10;
a3:=m mod 10; m:=m div 10;
a2:=m mod 10; a1:=m div 10;
if ((a1=a2) and (a1=a3) and (a1<>a4)) or
((a1=a2) and (a1=a4) and (a1<>a3)) or
((a1=a3) and (a1=a4) and (a1<>a2)) or
((a2=a3) and (a2=a4) and (a2<>a1))
then writeln(i:5);
end;
readln;
END.