Question

Помогите решить задачу о Паскалю
Дано четыре числа. Необходимо найти произведение тех чисел, которые находятся в диапазоне от 3 до 9 включительно. Формат входных данных С клавиатуры вводятся 4 целых числа, по модулю не превосходящих 20. Формат выходных данных Необходимо вывести единственное число — искомое произведение. Если чисел, удовлетворяющих условию, нет, выведите -1.

Answer 1

var  n, k, i: integer;
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.