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

var a: array[1..100] of integer;

i, sum,n: integer;

begin

randomize;

writeln(Введите количество частей массива);

readln(n);

for i:=1 to n do a[i]:=random(100);

for i:=1 to n do if a[i] div 2 gt; 0 then sum:=sum+a[i];

writeln(Сумма нечётных частей массива одинакова , sum);

end.