program pr3; {П5-1-5 Дан одномерный массив натуральных чисел. Выведите на экран таблицу, в которой перечислены элементы массива
             (без повторений, в порядке убывания) и сколько раз они повторяются в массиве.}

const n=9;
var mas: array[1..9] of integer;
    i,j :integer;//переменные для циклов
    buf:integer;//переменная для обмена значениями

begin {заполнение массива числами}
  writeln('Введите ', n, ' чисел');
  for i:=1 to n do
    readln(mas[i]);
  for i:=1 to n do//идём перебором в N раз, чтобы точно сортировать
    begin
      for j:=1 to n-1 do//проводим перебор массива до N-1(-1 чтобы не выйти за пределы массива, т.к цикл с предусловием)
        begin
          if mas[j]>mas[j+1] then//проверяем J ячейку массива с J+1, и если J больше, то...
            begin
              buf:=mas[j+1];//записываем значение ячейки массива J+1
              mas[j+1]:=mas[j];//приравниваем значение ячейке массива J к J+1, т.к оно больше
              mas[j]:=buf;//затем, приравниваем ячейке массива J меньшее значение
            end;
        end;
    end;
  for i:=1 to n do {вывод массива}
    writeln(mas[i]);
end.