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