program RepeatDigits;vari, j, k: integer;beginfor i := 100 to 999 dobeginj := i div 100;k := i mod 100 div 10;if (j = k) or (j = i mod 10) or (k = i mod 10) thenwriteln(i);end;end.
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.