Program BTH;
Uses crt;
Var a:array[1..150] of longint;
s,n,i:longint;
Begin
        Clrscr;
        Write('Nhap n: ');readln(n);
        For i:=1 to n do
        Begin
                Write('Nhap so thu ',i,' : ');readln(a[i]);
        end;
        Writeln('So chia het cho 7 la: ');
        For i:=1 to n do
        Begin
                If a[i] mod 7=0 then writeln(a[i]);
                s:=s+a[i];
        end;
        writeln('So le xuat hien trong day la: ');
        For i:=1 to n do
        Begin
                If a[i] mod 2=1 then writeln(a[i]);
        end;
        Writeln('Tong day so tren la: ',s);

        readln;
End.

program hotrotinhoc;

var a: array[1..150] of integer;

i,d,n: integer;

t: longint;

begin

write('n='); readln(n);

t:=0; d:=0;

for i:=1 to n do

begin

write('a[',i,']='); readln(a[i]);

if (a[i] mod 2<>0) or (a[i] mod 7=0) then

begin

t:=t+a[i];

inc(d);

end;

end;

writeln('Gia tri tong la :',t);

write('Co ',d,' so la le hoac chia het cho 7');

readln

end.