Написать программу, которая генерирует четырехзначное число и определяет, есть ли в числе одинаковые цифры - Pascal

Формулировка задачи:

Написать программу, которая генерирует четырехзначное число и определяет, есть ли в числе одинаковые цифры.

Решение задачи: «Написать программу, которая генерирует четырехзначное число и определяет, есть ли в числе одинаковые цифры»

Листинг программы

program pr;
 
var
  m, i, a, b, c, d: integer;
 
begin
  m := random(1000, 9999);
  writeln(m);
  a := m div 1000 mod 10;
  b := m div 100 mod 10;
  c := m div 10 mod 10;
  d := m mod 10;
  if (a = b) or (a = c) or (c = b ) or (a = d) or (d = c) or (d = b) then Writeln('есть одинаковые')
  else Writeln('нет одинаковых');
end.

Объяснение кода листинга программы

Объявляются переменные:
- m - для хранения сгенерированного четырехзначного числа,
- i, a, b, c, d - для выделения отдельных цифр числа.
Генерируется четырехзначное число и присваивается переменной m с использованием функции random(1000, 9999).
Выводится сгенерированное четырехзначное число.
Извлекаются отдельные цифры из числа m и сохраняются в переменных a, b, c, d с помощью деления и остатка от деления.
Проверяется, есть ли одинаковые цифры в сгенерированном числе с помощью конструкции условного оператора.
- Если хотя бы две цифры равны, выводится сообщение есть одинаковые.
- В противном случае выводится сообщение нет одинаковых.
Программа завершается.