Program Primer;
var sum, a: real;
begin
sum:=0;
a:=0;
repeat
sum:=sum+a;
write\('Введите число'\);
readln\(a\);
until a < 0;
writeln \(sum\);
end.
Какое число получится, если ввести ряд чисел 6, 2, 1, 7, -11?