Дан массив А(8).Найти сумму нечетных положительных элементов.
Благодарю заранее

programm p1;var i,s:integer;     arr1:array [1..8] of integer;beginfor i:=1 to 8 dobegin  writeln ('Введите элемент массива ',i);  readln(arr1[i]);end;s:=0;for i:=1 to 8 dobegin  if (arr1[i] mod 2 <> 0) and (arr1[i]>0) then s:=s+arr1[i];end;writeln('Сумма нечетных положительных элементов равно: ',s);end.