даны 10 любых чисел , найти произведение только тех , которые лежат в диапазоне от 20 до 40

Всё работает, пробуй.

program pbc;
var a,q,n:
integer;begin 
 writeln('введите десять чисел'); 
readln(a); 
 q:=1; 
 n:=1; 
 while (n<>10) do
  begin 
   if (a>=20) and (a<=40) then   
  q:=a*q;   
  readln(a);   
  n:=n+1; 
 end; 
  writeln('ответ  ',q);
end.