Числовой ряд из 10 чисел задается генератором случайных чисел в диапазоне

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 gt; s2 then

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

 else

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

end.