function soma: integer;
var
   n, i, v, s : integer;
begin
   write ('N: ');
   read (n);
   i := 0;
   s := 0;
   if (n > 0) then
      repeat
	 readln(v);
	 s := s + v;
	 i := i+1;
      until i = n;
   soma := s;
end;