Помогите с программой по информатике

На паскале.var a:array[1..14] of integer; i, p:integer; begin p:=1; for i:=1 to 14 do begin a[i]:=random(-35, 28); p:=p*a[i]; end; writeln(p); end.