program RepeatDigits;
var
i, j, k: integer;
begin
for i := 100 to 999 do
begin
j := i div 100;
k := i mod 100 div 10;
if (j = k) or (j = i mod 10) or (k = i mod 10) then
writeln(i);
end;
end.