ЛЮДИ, ПОМОГИТЕ, ПОЖАЛУЙСТА  НАПИСАТЬ ПРОГРАММУ Найти и вывести ...

Женя

(Высчитывает сумму нечетных элементров массива) 

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 20 then sum:= sum+a[i]; end; write('sum= ',sum); readln;end.