Нужно составить программу паскаль и выявить какой мешок тяжелее
13 кг и 5 кг

Вот программа по примитивной логике. Заводим доп.массив, переписываем в него четные эл-ты, сортируем его, отсортированные эл-ты вставляем назад в исходный массив.
var
   i, j, p: integer;
   a: array[1..20] of integer;
   b: array[1..10] of integer;
begin 
writeln('Исходный массив: ');
for i := 1 to 20 do
  begin
  a[i] := random(20) + 1;
  write(a[i]:3)
  end;     
for i := 1 to 20 do
    if i mod 2 = 0 then
       begin
       j := j + 1;
       b[j] := a[i]
       end;
writeln;
for i := 1 to 10 do
     for j := 1 to 10 do
        begin
        if b[i] > b[j] then
           begin
           p := b[i];
           b[i] := b[j];
           b[j] := p
           end
        end;
for i := 1  to 10 do a[i * 2] := b[i];
writeln('Преобразованный массив: ');
for i := 1 to 20 do write(a[i]:3)
end.

Объяснение:

#include <iostream>

#include <math.h>

using namespace std;

int main()

{

   int a, b, c, d;

   cout <<"vvedite a, b , c" << endl;

   cin >> a >> b >>c;

   if(a == 0.0)

   {

       cout << "a ravo 0!" << endl;

       return 0;

   }

   d = b*b - 4 * a * c;

   if(d < 0)

   {

       cout << "net kornei" << endl;

       return 0;

   }

   if(d == 0)

   {

       cout << "odin koren, x = " <<(-b)/2*a <<endl;

       return 0;

   }

   cout << "dva korna, x1 = " <<(-b + sqrt(d))/2*a << " x2 = " <<(-b - sqrt(d))/2*a << endl;

   return 0;

}