program kieszonkowe; //Runda 1-B                            28.09.2015
var n,i,ai,aminniepar:longint; //najmniejszy nominał z nieparzystych
  sum: qword; //sumaryczna wartość banknotów
begin  sum:=0;
  readln(n); //liczba banknotów
  aminniepar:=1000; //init
  for i:=1 to n do
  begin 
    read(ai); sum+=ai;
    if odd(ai) then
      if ai<aminniepar then aminniepar:=ai 
  end;//i,dane
  if odd(sum) then sum-=aminniepar;
  if sum>0 then writeln(sum) else writeln('NIESTETY')
end.

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15

program kieszonkowe; //Runda 1-B                            28.09.2015
var n,i,ai,aminniepar:longint; //najmniejszy nominał z nieparzystych
  sum: qword; //sumaryczna wartość banknotów
begin  sum:=0;
  readln(n); //liczba banknotów
  aminniepar:=1000; //init
  for i:=1 to n do
  begin 
    read(ai); sum+=ai;
    if odd(ai) then
      if ai<aminniepar then aminniepar:=ai 
  end;//i,dane
  if odd(sum) then sum-=aminniepar;
  if sum>0 then writeln(sum) else writeln('NIESTETY')
end.