Составьте программу для решения следующей массив б задан случайным образом подсчитать сумму элементов массива состоящих из нечётных чисел

Var b:array [1..100] of integer; s,i:integer;
begin
for i:=1 to 100 do
begin
b[i]:=random(-100,100);
if odd(b[i]) then s:=s+b[i];
end;
write(s);
end.