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

var b: array[1..50] of Integer; i, sum: Integer;Beginsum := 0;for i := 1 to 50 doreadln(b[i]);for i := 1 to 50 doif (b[i] mod 2 <> 0) and (b[i] < 0) then sum := sum + b[i];write(sum);End.