Question

(язык паскаль)
вычислите сумму чисел вводимых с клавиатуры, окончание ввода число 0.

Answer 1

var k,sum: real;
begin
read(n);
for var i:=1 to n do
begin
read(k);
sum:=sum+k;
end;
writeln(sum);
end.