program Suma;
var s,a:integer;
begin
s:=0;
readln(a);
while a>0 do
begin
s:=s+a;
writeln('a=');
readln(a);
end;
writeln('sumata na chislata e=',s);
end.
cHJvZ3JhbSBTdW1hOwp2YXIgcyxhOmludGVnZXI7CmJlZ2luCnM6PTA7CnJlYWRsbihhKTsKd2hpbGUgYT4wIGRvCiBiZWdpbgogczo9cythOwogd3JpdGVsbignYT0nKTsKIHJlYWRsbihhKTsKIGVuZDsKd3JpdGVsbignc3VtYXRhIG5hIGNoaXNsYXRhIGU9JyxzKTsKZW5kLg==