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

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