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

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