Вопрос:
не получается сделать программу в ABCпаскаль, в чем ошибка?
uses crt;
var
a: array [1..20] of index;
begin
for 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.