Запросить 200 чисел, вычислить произведения чисел, которые не попадают в отрезок от -100 до 100

program sdasd;var a, i, otv:integer;beginotv:= 1;for i:= 1 to 200 do      begin          readln(a);          if (a < -100) and (a > 100) do  otv:= otv * a;       end;writeln(otv);end.