Решите задачу в паскале

var i, x, pro, sum, kolvo: integer;
begin
i:=0;
pro:=1;
sum:=0;
kolvo:=0;
while i < 10 do
begin
inc(i);
write ('число №', i,' = ');
readln (x);
if x > 0 then pro:=pro*x;
if x < 0 then
begin
sum:=sum+x;
inc(kolvo);
end;
end;
writeln ('произведение положительных значений = ', pro);
writeln ('сумма отрицательных значений = ', sum);
writeln ('количество отрицательных значений = ', kolvo);
end.

-59-84-38 2 60-36 48 20 8-11
sum pol : 138 kol otr : 5
---------------
-63-89-70-10 76-18-42 80-87 78
sum pol : 234 kol otr : 7
---------------
-47-66 10 54-94 91 56 99-10 29
sum pol : 339 kol otr : 4
---------------
-15-63 69-98-96-14 63-16-19 75
sum pol : 207 kol otr : 7
---------------
-76-96-93 79-55-65-4 15-13-23
sum pol : 94 kol otr : 8
---------------
-29-91 23 20 53 23-83 86-90 14
sum pol : 219 kol otr : 4
---------------
-99 58-45 24-81-100-1-65 18 30
sum pol : 130 kol otr : 6
---------------
47 42 44-85 8 12-71-5-3-23
sum pol : 153 kol otr : 5
---------------
-59-26-29 24-78-63-9 84 18 70
sum pol : 196 kol otr : 6
---------------
71 21-80-22-8 78-18-93 47 96
sum pol : 313 kol otr : 5
---------------
92 4-52 21-99 77 42 81 65-81
sum pol : 382 kol otr : 3
---------------
-16 16-55-74-4 38-6-22-5-20
sum pol : 54 kol otr : 8
---------------
-22-72 25-42-30-11-85-32-90 3
sum pol : 28 kol otr : 8
---------------