)ввести с клавиатуры n чисел. найти произведение тех из них, которые принадлежат интервалу (-2; 2). в паскале.

Var n,pr,a:integer;
begin
   readln (n);
   pr:=1;
   repeat
      read(a);
      if (a>=-2) and (a<=2) then pr:=pr*a;
      n:=n-1;
   until n=0;
   write (pr);
end.