Составьте программу на паскале для упорядочения пяти чисел по убыванию и нахождение их суммы

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

program OrderAndSum;
var
numbers: array[1..5] of integer;
i, j, temp, sum: integer;
begin
// ввод чисел
writeln('Введите пять чисел:');
for i := 1 to 5 do
begin
write('Число ', i, ': ');
readln(numbers[i]);
end;

// сортировка по убыванию
for i := 1 to 4 do
begin
for j := 1 to 5 - i do
begin
if numbers[j] < numbers[j + 1] then
begin
// меняем местами
temp := numbers[j];
numbers[j] := numbers[j + 1];
numbers[j + 1] := temp;
end;
end;
end;

// вывод отсортированных чисел
writeln('Отсортированные числа по убыванию:');
for i := 1 to 5 do
begin
write(numbers[i], ' ');
sum := sum + numbers[i];
end;

// вывод суммы чисел
writeln;
writeln('Сумма чисел: ', sum);
end.