Легкая задача

Жарасхан очень любит решать сложные задачи, но иногда ему дается нелегко, когда надо решать легкую задачу :D

Дается число, нужно найти минимальное следующее число, которое строго больше текущего числа и состоит из уникальных чисел.

Жоре решить эту легкую задачу.

Входные данные:

(1000 ≤ y ≤ 9000)

Выходные данные:

Вывод числа, которое сторого больше текущего числа и состоит из разных чисел.

Пример 1
Ввод:
2013

Вывод:
2014
Пример 2
Ввод:
1234

Вывод:
1235
Пример 3
Ввод:
4572

Вывод:
4573

//Visual C++ 2012

#include <iostream>
using namespace std;

int main(){
 int ma[2][2];
 int temp;
 temp=0;
 for(int i=0;i<2;i++)
  for(int j=0;j<2;j++)
   cin>>ma[i][j];
 cout<<"First array:"<<endl;
    for (int i=0; i<2; i++){
     for (int j=0; j<2; j++)
      cout<<ma[i][j]<<"\t";
      cout<<endl;
      }
 for(int i=0;i<2;i++){
  temp=ma[i][0];
  ma[i][0]=ma[i][1];
  ma[i][1]=temp;
 }
 cout<<"Final array"<<endl;
    for (int i=0; i<2; i++){
     for (int j=0; j<2; j++)
      cout<<ma[i][j]<<"\t";
      cout<<endl;
      }
 cin.get();
 cin.get();
 return 0;
}

// PascalABC.NET 3.1, сборка 1214 от 09.04.2016
begin
  var a:=ArrRandom(20,-10,10); a.Println;
  Writeln('Наибольший отрицательный элемент ',
    a.Where(x->x<0).Max)
end.

Тестовое решение:
8 -10 -6 -10 6 10 0 4 -6 -7 10 -2 -7 -10 3 -5 0 -9 3 3
Наибольший отрицательный элемент -2

// PascalABC.NET 3.1, сборка 1214 от 09.04.2016
begin
  var a:=ArrRandom(15,-10,10); a.Println;
  a.Select(x->x<=3?x*x*x:x).Println
end.

Тестовое решение:
7 -3 5 -5 4 7 2 1 -10 9 -2 -7 4 0 5
7 -27 5 -125 4 7 8 1 -1000 9 -8 -343 4 0 5