program p;
var a,b: integer;
begin
a:=1;
repeat begin
writeln('Введите число: ');
readln(b); if b<0 then a:=a*b;
until b=0; writeln('ответ:',a);
readln; end.
