program summation;
var num, sum, counter, userValue : integer;
begin
writeln('Сколько раз просуммировать числа?');
readln(userValue);
for counter := 1 to userValue do
begin
sum := 0;
repeat
writeln('Введите число: ');
readln(num);
if num >= 0 then
sum := num + sum;
until num < 0;
writeln('Сумма чисел равна: ', sum);
readln;
end;
end.