дан массив из n элементов. найти произведение всех элементов массива

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