TONGDS PASCAL

var     a:array[1..100005] of longint;
         var n,i,S:longint;
procedure nhap;
var i:longint;
begin
    readln (n);
    for i:=1 to n do read(a[i]);
end;

procedure giai;
begin
    for i:=1 to n do
            if a[i] mod 2=1 then S:=S+a[i];
    writeln (S);
end;

begin
    assign (input,'TONGDS.inp');reset (input);
    assign (output,'TONGDS.out');rewrite (output);
    nhap;
    giai;
end.