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

Program n1;var sum,kp,ko,a: integer;beginreadln(a);sum:=0;ko:=0;kp:=0;while a<>0 dobeginsum:=sum+a;if a>0 then kp:=kp+1else ko:=ko+1;readln(a);end;writeln(sum);writeln(kp-ko);end.