Дано натуральное число n. Проверить,будут ли все цифры числа различными. - Pascal

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

1) Дано натуральное число n. Проверить,будут ли все цифры числа различными. 2) При поступлении в вуз абитуриенты,получившие "двойку" на первом экзамене, ко второму не допускаются.В массиве А[n] записаны оценки экзаменующихся,полученные на первом экзамене. Подсчитать,сколько человек недопущено ко второму экзамену. 3) Дан двумерный массив целых чисел.Модифицировать его элементы,как описано ниже,и вывести на экран по строкам:ко всем положительным элементам массива прибавить последний элемент соответствующей строки,а к остальным-первый элемент той же строки. 4)Дано предложение.Найти наибольшее количество идущих подряд пробелов. Заранее примного багодарен.

Решение задачи: «Дано натуральное число n. Проверить,будут ли все цифры числа различными.»

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

var c0,c1,c2,c3,c4,c5,c6,c7,c8,c9,c,n:integer;
begin
readln(n);
c0:=0;c1:=0;c2:=0;c3:=0;c4:=0;c5:=0;c6:=0;c7:=0;c8:=0;c9:=0;
while n<>0 do
 begin
  c:=n mod 10;
    if c=0 then c0:=c0+1;
    if c=1 then c1:=c1+1;
    if c=2 then c2:=c2+1;
    if c=3 then c3:=c3+1;
    if c=4 then c4:=c4+1;
    if c=5 then c5:=c5+1;
    if c=6 then c6:=c6+1;
    if c=7 then c7:=c7+1;
    if c=8 then c8:=c8+1;
    if c=9 then c9:=c9+1;
  n:=n div 10;
  end;
  
if (c0>1) or (c1>1) or (c2>1) or (c3>1) or (c4>1) or (c5>1) or (c6>1) or (c7>1) or (c8>1) or (c9>1) then write('В числе не все цифры разные')
else write('В числе все цифры разные');
end.

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

Объявляются переменные:
- c0, c1, c2, c3, c4, c5, c6, c7, c8, c9 - для подсчета количества каждой цифры в числе
- c - временная переменная для хранения цифры числа при проверке
- n - натуральное число, вводимое пользователем
Вводится натуральное число n.
Устанавливается начальное значение каждой переменной c0, c1, c2, c3, c4, c5, c6, c7, c8, c9 в 0.
Выполняется цикл while, пока n не равно 0:
- Получается остаток от деления n на 10 и сохраняется в переменной c.
- При проверке значения c каждая переменная c0, c1, c2, c3, c4, c5, c6, c7, c8, c9 увеличивается на 1, если значение c равно соответствующей цифре.
После завершения цикла происходит проверка: если хотя бы одна из переменных c0, c1, c2, c3, c4, c5, c6, c7, c8, c9 больше 1, то выводится сообщение В числе не все цифры разные, в противном случае выводится В числе все цифры разные.