ДАЮ 50 поинтов НУЖНА ПОМОЩЬ Напишите программу, которая вводит с клавиатуры 10 целых чисел (положительных и отрицательных) и вычисляет сумму введенных положительных чисел

var i: byte;

sum,n:integer;

pro:longint;

begin

sum:=0;

pro:=0;

for i:=1 to 10 do

begin

write('Введите ', i, 'число');

readln(n);

sum:=sum+n;

pro:=pro*n;

end;

writeln('Сумма введенных чисел - ', sum);

writeln('Произведение: ', pro);

end.