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.