program osszegzes;
const n=8;
var i, s: integer;
    a: array [1..n] of integer;
begin
  s:=0;
  for i:= 1 to n do
  begin
    write(' a[',i,']='); readln(a[i]);
    s:=s+a[i];
  end;
  writeln('A tomb elemeinek osszege: ',s);
  readln;
end.