Program Z2;
uses crt; // Подключение модуля
Const //Описание констант
n =16;
var //Описание переменных
s1,s2:real;//Не совсем понятно зачем real, ведь массив integer
var
q: string; //Строковая переменная !!!Вообще нигде не используется
Var m: array [1..n] of integer; //Массив целых чисел
Var i,j:integer; //Переменные цикла !!Хватило бы и одной
begin
//Формирование массива
for l:=1 to n do
read(m[i]);
//Обнуление переменных сумм
s1:=0;
s2:=0;
for J:=1 to 8 do
begin
//Подсчет суммы элементов с четным порядковым номером
s1:=s1+m|2*j];
//Подсчет суммы элементов с нечетным порядковым номером
s2:=s2+m|2*j-1];
end;
If s1>s2 then //Условие
writeln('cyммa элементов с четным индексом больше. чем сумма с нечетным);
end.