Verified answer

var

 A: array [1..10] of Integer;  // массив для записи чисел

 i, s1, s2: Integer;

begin

 Randomize;  // инициализация датчика случайных чисел

 WriteLn ('Массив:');

 for i := Low (A) to High (A) do begin  // цикл от начального до конечного элемента массива

   A [i] := Random (21);                // случайное число записываем в массив

   Write (A [i], ' ');                  // и выводим его на дисплей

 end;

 s1 := 0;  // очистка переменных для подсчета сумм s1 - четные s2 = нечетные

 s2 := 0;

 for i := Low (A) to High (A) do begin   // снова такой же цикл

   if i mod 2 = 0 then                   // проверка на четность (остаток от целочисленного деления на 2)

     s1 := s1 + A [i]                    // добавим к сумме четных

   else

     s2 := s2 + A [i];                   // добавим к сумме нечетных

 end;

 WriteLn;

 if s1 = s2 then                         // выводим рассчитанные значения

   Writeln ('Сумма четных равна сумму нечетных')

 else if s1 > s2 then

   Writeln ('Сумма четных больше суммы нечетных на ', s1 - s2)

 else

   Writeln ('Сумма четных меньше суммы нечетных на ', s2 - s1);

end.