Помогите пожалуйста) Ввести с клавиатуры 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.