ЛЮДИ, ПОМОГИТЕ, ПОЖАЛУЙСТА НАПИСАТЬ ПРОГРАММУ Найти и вывести на экран сумму…

(Высчитывает сумму нечетных элементров массива) program chisla; uses crt; var a: array [1… 10] of integer; {сколько элементов вмассиве} i,sum: integer; begin clrscr; sum: =0; for i: =1 to 10 do begin write ('a[',i,']='); readln (a[i]); if a[i] mod 2<>0 then sum: =sum+a[i]; end; write ('sum=',sum); readln; end.