program Posledovatelnost;
var
a, b: integer;
t: boolean;

begin
t := false;
Writeln(
'Введите через пробел последовательность положительных чисел, окончание ввода "0"');
read(a);
b := 1;
while a <> 0 do
begin
if a > 0 then
begin
b := b * a;
t := true;
end;
read(a);
end;
if t then
Writeln('Произведение положительных чисел последовательности = ', b)
else
Writeln('В последовательности кроме нуля нет элементов');
end.