Ввести с клавиатуры массив из 5 чисел. Отсортировать его по убыванию,и

program zz1;

const n = 5; // задаем количество чисел в массиве

var  i, j, b:integer; // задаем переменные целого типа

m:array [1..n] of integer;

begin

for i:=1 to n do  // получаем n чисел и записываем их в массив

read(m[i]);

for i := 1 to n-1 do // сортируем по убыванию

       for j := 1 to n-i do

           if m[j] lt; m[j+1] then begin

               b := m[j];

               m[j] := m[j+1];

               m[j+1] := b

           end;

for i:=1 to n do  // выводим полученный массив на экран

write(m[i], );

end.