program Project1;
{$APPTYPE CONSOLE}
var k:array[1..100] of integer;
i,n,S:integer;
begin
writeln('Vvedit kilkist postriliv');
readln(n);
for i:=1 to n do begin
writeln('Vvedit skilki popalo za ',i,' postril');
readln(k[i]);
S:=S+k[i];end;
writeln('Sadivnykam - doslidnykam distalosia ',S,' sajanciv');
readln;
end.