Найти произведение нечетных элементов в массиве,заданном датчиком случайных чисел на интервале [-38,39]. Размер массива 10 чисел.

Program asd;USES crt;Const n=10;Var A:array[1..n] of integer;i,p:Integer;BEGINWriteln('Массив: '); For i:=1 to n do  begin   A[i]:=Random(77)-38;   Write(A[i]:4);  end;  P:=1;  Writeln;  For i:=1 to n do     if not A[i] mod 2=0 then      p:=p*A[i];     Writeln('Произведение: ',P);Readln;END.