Дано четырехзначное число n, выяснить: верно ли, что все 4 цифры этого числа различны

//PascalABC.Net 3.0, сборка 1064
var
  n:integer;
  i,d:byte;
  b:array[0..9] of boolean;
  fail:boolean;
begin
  Write('Введите четырехзначное натуральное число: ');
  Read(n);
  for i:=0 to 9 do b[i]:=False;
  while (n>0) and (not fail) do begin
    d:=n mod 10;
    if b[d] then fail:=True else b[d]:=True;
    n:=n div 10
  end;
  if fail then Writeln('В числе есть одинаковые цифры')
  else Writeln('В числе нет одинаковых цифр')
end.

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

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

1.Американский учёный, выдающийся математик и философ, основоположник кибернетики и теории искусственного интеллекта.Мировую известность Винеру принесли его труды в области математической логики и теоретической физики.Заслуга Норберта Винера в том, что он впервые понял принципиальное значение информации в процессах управления.
2.Американский инженер и математик, его работы являются синтезом математических идей с конкретным анализом чрезвычайно сложных проблем их технической реализации
Он является основателем теории информации, нашедшей применение в современных высокотехнологических системах связи. Шеннон внес огромный вклад в теорию вероятностных схем, теорию автоматов и теорию систем управления — области наук, входящие в понятие «кибернетика». В 1948 году предложил использовать слово «бит» для обозначения наименьшей единицы информации
3)Тед Нельсон в 1965 году
4)Тим Бернерс Ли в 1989 году
5)Математик, внесший значительный вклад в развитие математики, механики , физики и астрономии

Мощность алфавита - это значит сколько букв в алфавите. Нам дан такой фантастический алфавит (может инопланетный) в котором 256 букв. Сколько ячеек памяти нам потребуется для хранения одного символа?В одну ячейку (или один бит) мы можем записать либо 0 либо 1, то есть двойку мы туда никак не уместим. Попробуем хранить весь алфавит в одной ячейке.А = 0, Б =1 и... всё. Попробуем использовать два бита.А = 00, Б = 01, В = 10, Г = 11 и... снова не хватает бвух бит. Если мы хотим закодировать Д - у нас уже нет вариантов. Попробует использовать три битаА = 000, Б = 001, В = 010, Г = 011, Д = 100, Е = 101, Ё = 110, Ж = 111... Снова не хватаетТак сколько же бит нам потребуется? Мы знаем, что количество букв = 256 (первую букву будем кодировать как 0, поэтому остаётся 255 букв. Переводим 255 из десятичной системы в двоичную. И видим, что 255 (десятичное) = 1111 1111. То есть нам потребуется 8 бит на каждую букву алфавита.Это и есть 256 = 2 ^ 8, знак ^ - значит "в степени"Теперь мы знаем, что одна буква у нас будет занимать 8 бит или 1 байт.Знаем, что реферат 40 килобайт. Смотрим, сколько там байт. Знаем, что 1 килобайт = 1024 байта. Получаем 40 х 1024 = 40960 байт. Помнишь, у нас 1 байт = 1 буква ? Значит реферат содержит 40960 букв. Теперь определяем сколько строк в реферате. 40960 : 64 буквы в одной строке = 640 строк. И теперь, зная, сколько строк на одной странице, получаем 640 строк : 40 строк = 16 страниц.