Напишите программу, в которой осуществляется ввод целых чисел (пока не будет введён 0) и выведет на экран сумму положительных чисел, и произведение отрицательных введённых чисел. Использовать цикл repeat

Program n1;var a,i,p,sum: integer;beginsum:=0;p:=1;repeatreadln(a);if a>0 then sum:=sum+a;if a<0 then p:=p*a;until (a=0);writeln('произведение отрицательных: ',p);writeln('сумма положительных: ',sum);end.