не получается сделать программу в ABCпаскаль, в чем ошибка? uses crt;vara: array [1..20] of index;beginfor i:= 1 to 15 do;readln(a[i]);for i:= 1 to 15 do;writeln(a[i]);for i:= 1 to 15 do;if a[i] mod 2 = 0 then S:=S+1;S:= S+a[i];writeln(S);end.

в var нет переменных i и S. В остальном задача принимает 15 чисел и проверяет, сколько чётных среди них.
P.S. Надо переделать!Зачем складывать член массива с количеством? И ещё - сперва опиши, что такое S - программа же не знает, с чем складывать S!