Последовательно вводят N целых чисел. Найти произведение чисел больших 8 и меньших 15

Question

Последовательно вводят N целых чисел. Найти произведение чисел больших 8 и меньших 15

Answer 1

Var
 n,a,k,i:integer;
begin;
k:=1;
 readln(n);
  for i:=1 to n do
   begin;
    readln(a);
     if (a>8) and (a<15) then k:=k*a;<br>  end;
writeln(k);
end.