Заполнить массив К(1 То N) случайными числами из отрезка [A, B] и определить произведение нечетных элементов.

var  a: array of integer;  i, N, prod: integer;  flag: boolean;begin  prod := 1; flag := False;  write('Введите N -> ');  readln(N);  SetLength(a, N);  for i:=0 to High(a) do begin    A[i] := random(10)-5;    write(A[i], ' ');    if (abs(A[i] mod 2) = 1) then      prod *= A[i];      flag := True;  end;  writeln();  if (flag) then    writeln('Произведение нечетных элементов: ', prod, '.')  else    writeln('В массиве нет нечетных элементов.');end.