Составить массив из 10 целых чисел и подсчитать сумму отрицательных и количество положительных.

Program chisla;Var A: array [1..10] of integer;    o,p,i:integer;Begin    For i:=1 to 10 do Readln(A[i]);    For i:=1 to 10 do Begin        If A[i]<0 then o:=o+A[i];        If A[i]>0 then p:=p+1;        End;    Write('Сумма отрицательных = ',o,'.'); Writeln('');    Write('Количество положительных = ',p,'.');End.