label nach;
uses crt;
var x,s:integer;
begin
s:=0;
repeat
nach:
write('vvedite x=');read(x);
if (x!=0) then begin writeln(x); s:=s+x; goto nach;end else s:=s+x;
until (x=0);
writeln('summa ravna=',s);
end.
