function calc_sum : integer;
var
   num : integer;
begin
   read(num);
   if num=0 then
      calc_sum := 0
   else
      calc_sum := num + calc_sum;
end;