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

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