Program Suma;
var n, i, S : integer;
    A : array[1..100] of integer;
    Intrare, Iesire : text;
begin
   { Citirea datelor de intrare }
   assign(Intrare, 'suma.in');
   reset(Intrare);
   readln(Intrare, n);
   for i:=1 to n do
      readln(Intrare, A[i]);
   close(Intrare);
   { Calcularea sumei }
   S:=0;
   for i:=1 to n do
      S:=S+A[i];
   { Scrierea datelor de iesire }
   assign(Iesire, 'suma.out');
   rewrite(Iesire);
   writeln(Iesire, S);
   close(Iesire);
end.