Создать массив из 25 целых случайных чисел в интервале [-50,50]. Вывести на количество четных и сумму нечетных элементов массива

var i, chet, summa: integer; mass:array[0..24] of integer; Begin for i:=0 to 24 do Begin mass[i]:= random(-50,50); if (mass[i] mod 2 = 0) then Begin chet+=1; writeln('Элемент массива под номером ' + (i+1) + ' равен ' + mass[i] + ' и чётен.'); End else Begin writeln('Элемент массива под номером ' + (i+1) + ' равен ' + mass[i] + ' и нечётен.'); summa+=mass[i]; End; End; Writeln('Количество чётных членов массива: ', chet); Write('Сумма нечётных членов массива: ', summa); End.