Проверьте паскаль, где не понимаю, как сумму сделать 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.