program Sanda;
type vector = array[1..5000] of integer;
var n, i:integer;
var A:vector;

function Suma (A:vector; n:integer):integer;
var rezultat, i:integer;
begin
    rezultat :=0;
    for i :=1 to n do
        rezultat := rezultat + A[i];

    Suma:=rezultat;
end;

begin
    readln(n);
    for i:=1 to n do
        read(A[i]);

    writeln('Suma este:');
    writeln(Suma(A, n));

end.