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