Помогите срочно решить задачу по информатике

var a: array[1… 1000] of integer; {real}sum,i,n: integer; {real}beginreadln (n); {n элементов}sum: =1; for i: =1 to n do begin readln (a[i]); sum: =sum*a[i]; end; writeln (sum); end. Если надо решить не на паскале напиши в личку