Question

с клавиатуры вводится последовательность чисел до тех пор пока не будет введено число 0. требуется найти произведение чисел из введенной последовательности кратных пяти

Answer 1

var
  x, s: integer;

begin
  s := 1;
  repeat
    readln(x);
    s *= (x = 0 ? 1 : x);
  until (x = 0);
  writeln(s);
end.