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

Program probzvedenbe;

Var

a, b, c: integer;

Begin

c : = 1;

for b:=0 to 9 do

begin

readln (a);

if (a > = 20) and (a < = 40) then

c : = c * a;

end;

writeln ('Произведение введенных числе, находящихся в диапазоне от 20 до 40 равно ', c);

readln;

End.

(Программа проверена в PascalABC)