Написать программу на языке Паскаль, где пользователь вводит с клавиатуры 99 элементов массива, а программа рассчитывает сумму значений элементом при условии четности индекса элемента и значения этого элемента

var   i, sum: integer;   ar: array[1..99]of integer;  begin   sum := 0;   for i := 1 to 99 do   begin     read(ar[i]);     if(i mod 2 = 0) and (ar[i] mod 2 = 0) then sum := sum + ar[i];   end;   write(sum); end.