Помогите решить задачу.

Решить через паскаль.

Дан массив В (50) целых чисел. Подсчитать сумму тех элементов массива, которые нечетны и отрицательны.

Var b: array[1 ... 50] of Integer; i, sum: Integer;

Begin

sum : = 0;

for i : = 1 to 50 do

readln (b[i]);

for i : = 1 to 50 do

if (b[i] mod 2 0) and (b[i] < 0) then sum : = sum + b[i];

write (sum);

End.