Thiên Vũ - Trời Mưa ơi đây là tin học
Program BTT;
Uses crt;
Var A: array[1..10000] of longint;
    n,i,s: longint;
Begin
        Clrscr;
        Write('Nhap n: '); Readln(n);
        For i:=1 to n do
        Begin
                Write('A[',i,'] = '); Readln(A[i]);
        End;

        s:=0;
        For i:=1 to n do
                If A[i] mod 2 = 1 then s:=s+A[i];

        Write('Tong: ',s);
        Readln
End.