Написать на языке паскаль. Масси из 14 элементов заполнить случайными целыми числами в интервале от - 5 до 50. Вывести получкнный массив на экран в строчку. Найти сумму нечетных элементов массива

Program z;

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

i, sum: integer;

begin

sum:=0;

for i:=1 to 14 do

begin

a[i]: = random (50) - 5; write (a[i]: 6);

if a[i] mod 2 0 then sum: = sum+a[i];

end;

write (' sum = ', sum);

end.