Дан массив из 10 элементов найти сумму элементов с четными номерами.написать программу на языке программирования

На языке pascal abc.net var   a : array[1..10] of integer;   i,  kolchet    : integer; begin  kolchet : = 0;   for i : = 1 to 10 do      read(a[i]);   for i : = 1 to 10 do    if (i mod 2 = 0) then      kolchet : =  kolchet  + 1; writeln(kolchet); end.

type  data = record    year: 1..2100;     month: 1..12;     day: 1..31;   end; begin  writeln(sizeof(data) * 8, ' бит'); {sizeof(data) показывает размер типа data в байтах

                                                  умножение производится для перевода байтов в                                       биты}

end.

//pascal var  //объявление переменных n, i: integer;   //объявляем переменные n - количество повторов и i - счетчик для цикла begin  //открытие логических скобок write('введите n: ');   //выводит текст на монитор 'введите n: ' readln(n);   //запрашивает ввод с клавиатуры и заносит значение в переменную n for i : = 1 to n do  //цикл от 1 до числа n writeln(', друг! ');   //с каждым шагом цикла выводится сообщение ', друг! ' readln;   //ожидание нажатия enther после выполнения программы end.