program SumAndCountOfNegativeNumbers;

var
n, num, sum, countNegative: integer;

begin
sum := 0;
countNegative := 0;

writeln('Enter the value of n:');
readln(n);

for var i := 1 to n do
begin
writeln('Enter a number:');
readln(num);

sum := sum + num;
if num < 0 then
countNegative := countNegative + 1;

end;

writeln('The sum of the numbers is: ', sum);
writeln('The count of negative numbers is: ', countNegative);
end.