{* Задача 441 *}

Unit ZADACH441;
Interface
Implementation
Begin
 writeln('Дана последовательность натуральных чисел, за которой следует 0 (0 – признак конца последовательности). Вычислить произведение положительных элементов.');
End.

Program zadach441;

Uses zadach441.pas; {* Эту строку можно удалить *}
Var {* В работе нам потребуются переменные: *}
  p : integer;
  a : integer;
Begin
  p := 1;
  writeln ('Введите последовательность');
  Repeat    readln (a);
    If a > 0 Then
      p := p * a;
  Until a = 0;
  writeln ('p=', p);
End.