program SumArrayElements;

var
A: array of Integer;
sum, i, n: Integer;

begin
sum := 0;

writeln${}^{\prime }Enterthesizeofthearray{:}^{\prime }$;
readln$n$;

SetLength$A,n$;

writeln${}^{\prime }Entertheelementsofthearray{:}^{\prime }$;
for i := 0 to n - 1 do
begin
readln$A[i]$;
sum := sum + A$$i$$;
end;

writeln${}^{\prime }Sumofelementsofthearray{:}^{\prime },sum$;

end.