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