Создать массив целых чисел, найти сумму четных элементов массива, результат вывести на экран

Const     n=5;
var         A:array [1..n] of integer;
             i:byte;
             S:integer;
begin
writeln (vvedi mas A);
for i:=1 to n do
readln (A[i]);
S:=0;
for i:=1 to n do
if i mod 2=0 then
S:=S+A[i];
writeln (S=,S);
readln;
readln
end.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.