Решить задачу в паскале 1. Дано четырехзначное число. Все ли его цифры разные?

Предыдущий
вопрос Следующий
вопрос

Программа на Pascal:

program CheckDigits;
var
num: integer;
digit1, digit2, digit3, digit4: integer;
begin
write('Введите четырехзначное число: ');
readln(num);
digit1 := num div 1000;
digit2 := (num div 100) mod 10;
digit3 := (num div 10) mod 10;
digit4 := num mod 10;
if (digit1 <> digit2) and (digit1 <> digit3) and (digit1 <> digit4) and (digit2 <> digit3) and (digit2 <> digit4) and (digit3 <> digit4) then
writeln('Все цифры числа разные')
else
writeln('Число содержит повторяющиеся цифры');
end.

Программа запрашивает четырехзначное число у пользователя, затем определяет каждую цифру числа и проверяет, все ли они различны. Если все цифры числа различны, программа выводит сообщение "Все цифры числа разные", иначе выводит "Число содержит повторяющиеся цифры".