var a, b, c, i: integer;
begin
For i:= 200 to 500 do begin
a:= i div 100;
b:= i div 10 mod 10;
c:= i mod 10;
if ((a=b) or (b=c) or (a=c)) and ((a<>b) or (b<>c) or (a<>c)) then
Write (i, ' ');
end;
end.
