Проверьте паскаль, где ошибка??? Не понимаю, как сумму сделать var a:array [1..6] of integer; i:integer; sum:integer; begin sum:=0; for i:=1 to 6 do begin readln(a[ i ]); sum:=sum+a[ i ]; end; if (a[i] больше 9) and (a[i] меньш...

Проверьте паскаль, где ошибка??? Не понимаю, как сумму сделать var a:array [1..6] of integer; i:integer; sum:integer; begin sum:=0; for i:=1 to 6 do begin readln(a[ i ]); sum:=sum+a[ i ]; end; if (a[i]>9) and (a[i]<100) and (a[i]<0) and (a[i] mod 5=0) then writeln(sum); end.