Дан массив из n элементов , найти произведение всех элементов массива (n) решить на паскале  

var a: array[1..999] of integer;i, n, p:integer;beginp:=1;writeln('введите N - ');readln(n);for i:=1 to n do    begin      readln(a[i]);     p:=p*a[i];   end;writeln('Произведение элементов массива = ', p);end.