Решите ** паскале эту блок схему

Question

Решите на паскале эту блок схему

---

Answer 1

Var x,p,s:integer;
begin
read(x);
p:=1;
s:=0;
repeat if x>0 then s:=s+x else p:=p*x;
read(x);
until x=0;
writeln(p,s);
end.