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.
Какое число получится, если ввести ряд чисел 6, 2, 13, 9, -11, 0?