const n=10;
var mas:array[1..n] of integer; i,x:integer;
begin
x:=1;
for i:=1 to n do
begin
  write('Input a[',i,']=');
  readln(mas[i]);
  x:=x*abs(mas[i]);
end;
writeln('the answer is:', x);
readln;

end.