Что не так, почему не работает данная программа? program massiv; const n=20; var b: array [-20..n] of integer; i,p,a,d,k,h: integer; begin {ввод массива} write('введите интервал'); readln(a,d); randomize; for k: =1 to n do begin; b[k]: =a+random (d-a+1); write ('b[', k,']=', b[k]); {вывод массива} end; for k: =1 to n do write (b[k]); {произведение элементов} p: =1; for k: =1 to n do begin; p: =p* b[k]; write ('произведение элементов'); end; for i: =1 to n do read(b[k]); readln; h: =0; for i: =1 to n do if b[k]< 0 then inc(h); write('количество отрицательных элементов',h); end.