YearsInRange

program YearsInRange;

uses sysutils;

var
  lowerLim, upperLim, yearCount, digitCount1, digitCount2: integer;
  repeatedDigit: boolean;

begin
  writeln('Enter lower year limit:');
  readln(lowerLim);
  writeln('Enter upper year limit:');
  readln(upperLim);
  for yearCount := lowerLim to upperLim do
    begin
      repeatedDigit := false;
      for digitCount1 := 1 to length(inttostr(yearCount)) do
        begin
          for digitCount2 := 1 to length(inttostr(yearCount)) do
            begin
              if (digitCount1 <> digitCount2) and ((inttostr(yearCount))[digitCount1] = (inttostr(yearCount))[digitCount2]) then
                repeatedDigit := true;
            end;
        end;
      if repeatedDigit then
        writeln(inttostr(yearCount));
    end;
  readln;
end.