var b: array [1… 8] of integer r…

var b: array [1… 8] of integer r,q: integer; begin for r; =1to8 do q; =0 for r; =1 to 8 do if b[r] mod 2=0 then write (') else q: =q+b (r); for r: =1 to 8 dowrite ('сумма нечетных чисел равна ',q); for 1 to 8 do writeln (',b[r]); end. Тут есть ошибка но я хз где она помогите)