Пользователь вводит последовательность целых чисел (каждое число на новой строке). Если пользователь вводит 0, то последовательность заканчивается.
Напишите программу, которая будет считать сумму этих чисел.

Пример ввода:

4
5
0
Пример результат:

9

s = 0

i = 1

while i != 0:

   i = int(input())

   s += i

print(s)

var

a,s:integer;

begin

s:=0;

a:=1;

until a<>0 do

begin

read(a);

s:=s+a;

end;

write(s);

end.

program kvadrat;

var i : integer;

begin

for i: = 10 to 100 do

writeln ( i: 2, i*i : 5);

readln;

end. 

для 4 символов:

2*2*2*2=16

для 5 символов:

2*2*2*2*2=32 

для 6 символов:

2*2*2*2*2*2=64

16+32+64=112