Program probzvedenbe;Vara, b, c: integer;Beginc := 1;for b:=0 to 9 do beginreadln (a);if (a >= 20) and (a <= 40) then c := c * a;end;writeln(\'Произведение введенных числе, находящихся в диапазоне от 20 до 40 равно \', c);readln;End.(Программа проверена в PascalABC)