Сформируйте массив из разностей между суммами положительных элементов с чётными и нечётными индексами

program XXX;
 
uses crt;
const
  nx = 8;
  nz = 10;
  nw = 15;
  a1 = 4;
  a2 = 8;
  c1 = 2;
  c2 = 7;
  d1 = 8;
  d2 = 6;
 
var
  x, z, w, y: array [1..nw] of real;
  sc, sn: real;
  i: integer;
 
begin
  writeln('Массив X');
  sc := 0;
  sn := 0;
 {Согласно формуле заполняем массив Х}
  for i := 1 to nx do
  begin
    x[i] := a1 * i * i - a2 * (5 - i);
     {Выводим массив на экран:}
    writeln(x[i]:6:1);
    {Ищем суммы положительных элементов массива Х с чётными и нечётными индексами}
    if x[i] > 0 then
      if odd(i) then sn := sn + x[i]
      else sc := sc + x[i];
  end;
  {Создавая новый массив У, записываем в его первый элемент разницу суммы положительных элементов массива Х с чётными и нечётными индексами}
  y[1] := sc - sn;
  writeln('');
  writeln('Массив Z');
  sc := 0;
  sn := 0;
  {Согласно формуле заполняем массив Z}
  for i := 1 to nz do
  begin
    z[i] := c1 * (i - 4) + c2 * sqr(sin(1.5 * i));
    {Выводим массив на экран:}
    writeln(z[i]:5:1);
    {Ищем суммы положительных элементов массива Z с чётными и нечётными индексами}
    if z[i] > 0 then
      if odd(i) then sn := sn + z[i]
      else sc := sc + z[i];
  end;
  {В массив У записываем его второй элемент, а именно: разницу суммы положительных элементов массива Z с чётными и нечётными индексами}
  y[2] := sc - sn;
  writeln('');
  writeln('Массив W');
  sc := 0;
  sn := 0;
  {Согласно формуле заполняем массив W}
  for i := 1 to nw do
  begin
    w[i] := d1 * ln(0.1 * i) + d2 * sqr(cos(i - 2.5)) * cos(i - 2.5);
     {Выводим массив на экран:}
    writeln(w[i]:5:1);
    {Ищем суммы положительных элементов массива W с чётными и нечётными индексами}
    if w[i] > 0 then
      if odd(i) then sn := sn + w[i]
      else sc := sc + w[i];
  end;
  {В массив У записываем его третий и последний элемент, а именно: разницу суммы положительных элементов массива W с чётными и нечётными индексами}
  y[3] := sc - sn;
  writeln('');
  writeln('Массив разностей сумм положительных элементов с четными индексами и с нечетными индексами');
   {Выводим массив разностей сумм положительных элементов с четными индексами и с нечетными индексами на экран:}
  for i := 1 to 3 do
    writeln(y[i]:6:1);
    {Программа завершена}
     readln;
end.