const
  n = 5;

var
  a : array [1..n] of real;
  p : real;
  i : integer;
  t : boolean;

begin
  t := false;
  writeln ('ввод данных в массив');
  for i := 1 to n do begin
    write ('Введите ', i, '-й элемент массива: ');
    readln (a [i]);
  end;
  p := 1;
  if t then
    for i := 1 to n do
      if a [i] > 0 then
        p := p * a [i];
  if not t then
    for i := 1 to n do
      if a [i] < 0 then
        p := p * a [i];
  writeln ('Произведение: ', p : 0 : 3);
end.