Pascal. Задача 8-6

var
  i, j, k : integer;
  s : string;
  flag : boolean;
begin
  for i := 1000 to 9990 do begin
    s := IntToStr(i);
    flag := true;
    for j := 1 to 3 do
      for k := j + 1 to 4 do
        if(s[j] = s[k]) then begin
          flag := false;
          break;
        end;
    if flag then
      Writeln(i);
  end;
end.