program C2;
{$APPTYPE CONSOLE}
var x:array[1..100] of integer;i,n,S:integer;
begin
writeln('Vvedit kilkist stoliv');
readln(i);
for n:=1 to i do begin
writeln('Vvedit kilkist bulochok na ',n,' stoli');
readln(x[n]);S:=S+x[n];end;
writeln(S);
readln;
end.