program masuvu_1_13; {$APPTYPE CONSOLE} uses SysUtils; var a:array[1..10000] of integer ; s,i,n:integer; begin readln(n); s:=0; for i:=1 to n do begin readln(a[i]); if a[i]