Дано натуральное трех значное число, проверить будетли все цифры числа различными

// PascalABC.NET 3.1, сборка 1250 от 28.05.2016
begin
  var n:=ReadInteger('Введите трехзначное натуральное число:');
  if n.ToString.Distinct.Count=3 then Writeln('Все цифры различны')
  else Writeln('Есть одинаковые цифры')
end.

Результаты тестирования
Введите трехзначное натуральное число: 121
Есть одинаковые цифры

Введите трехзначное натуральное число: 555
Есть одинаковые цифры

Введите трехзначное натуральное число: 490
Все цифры различны

#include <iostream>

using namespace std;

int main()

{

int n, m;

int **arr;

int min;

cout << "Enter dimension of array (n/m)" << endl;

cin >> n >> m;

arr = new int *[n];

for (int i = 0; i < n; i++) {

 arr[i] = new int[m];

}

for (int i = 0; i < n; i++) {

 for (int j = 0; j < m; j++) {

  cout << "arr[" << i << "][" << j << "] = ";

  cin >> arr[i][j];

 }

}

cout << "Your array:" << endl;

for (int i = 0; i < n; i++)

{

 for (int j = 0; j < m; j++)

 {

  cout << arr[i][j] << " ";

 }

 cout << endl;

}

cout << "Min is: ";

min = arr[0][0];

for (int i = 0; i < n; i++) {

 for (int j = 0; j < m; j++) {

  if (min > arr[i][j]) {

   min = arr[i][j];

  }

 }

}

cout << min << endl;

return 0;

}

#include <iostream>

using namespace std;

int main()

{

int n, m;

int **arr;

int min;

cout << "Enter dimension of array (n/m)" << endl;

cin >> n >> m;

arr = new int *[n];

for (int i = 0; i < n; i++) {

 arr[i] = new int[m];

}

for (int i = 0; i < n; i++) {

 for (int j = 0; j < m; j++) {

  cout << "arr[" << i << "][" << j << "] = ";

  cin >> arr[i][j];

 }

}

cout << "Your array:" << endl;

for (int i = 0; i < n; i++)

{

 for (int j = 0; j < m; j++)

 {

  cout << arr[i][j] << " ";

 }

 cout << endl;

}

cout << "Min is: ";

min = arr[0][0];

for (int i = 0; i < n; i++) {

 for (int j = 0; j < m; j++) {

  if (min > arr[i][j]) {

   min = arr[i][j];

  }

 }

}

cout << min << endl;

return 0;

}