program f_soma;

function soma: integer;
var
   n, i, v, s : integer;
begin
   write ('N: ');
   read (n);
   s := 0;
   for i := 1 to n do 
   begin
      readln(v);
      s := s + v;
   end;
   soma := s;
end;  

var
   res : integer;
begin
   res := soma;
   writeln('O valor da soma é:', res);
end.