Решите, пожалуйста, задачу в паскале (условия на картинке, вариант б)

var a:array of integer;i,p,n:integer;beginp:=1;readln(n);setlength(a,n);for i:=0 to n-1 do beginread(a[i]);p*=abs(a[i]);end;writeln(p);end.