program summa;
var
 sum, n: integer;
begin
 sum:=0;
 repeat 
  writeln('Summa on ', sum);
  write('n='); readln(n);
  sum:=sum+n;
 until (n=0);
 writeln('Kogusumma on ', sum);
end.