дана последовательность чисел,заканчивающаяся нулем. найти сумму отрицательных и произведение положительных чисел. Напишите в паскале

да, все*

program abc;var a,k,i,min,z:integer;c:real;beginmin:=30000;c:=1;read(a,k);if a>0 thenbeginfor i:=1 to k dobeginz:=i;c:=c+1/z;if (c>a)and(c<min)then min:=i;end;writeln('min',min);end;end.

ps:если честно это примерно что нужно если контроль пример то проверь

спасибо)

если контрольный есть пример то проверь

program a;var i,s,r:integer;begins:=1;read(i);while i<>0 do beginif (i<0)and(i<>0) then r:=r+1 else s:=s*i;read(i);end;writeln(s,r);end.