Решить о паскалю дано четыре числа. необходимо найти произведение тех чисел, которые находятся в диапазоне от 3 до 9 включительно. формат входных данных с клавиатуры вводятся 4 целых числа, по модулю не превосходящих 20. формат выходных данных необходимо вывести единственное число — искомое произведение. если чисел, удовлетворяющих условию, нет, выведите -1.
begin k := 1; for i := 1 to 4 do begin read(n); if (n >= 3) and (n <= 9) then k := k * n; end; if k = 1 then writeln(-1) else writeln(k);end.