Составить программку для подсчёта творения и количества элементов линейной таблицы В,

Program chislo b; var b:array [1..18] of real; j,k : integer; p:real; begin for j:=1 to 18 do begin writeln (b[j]); readln (b[j]); end; p:=1; k:=0; for j:=1 to 18 do begin if (-2lt;=b[j]) and (b[j]lt;2) then begin p:=p*b[j]; k:=k+1; end; writeln (proizvedenie=,p:2:2, ,kolichesyvo=,k); end;