program chiahetcho7;
uses crt;
var n,i,d,s:integer;
A:array[1..100] of integer;
begin
clrscr;
write('Nhap so luong phan tu: '); readln(n);
writeln('Nhap tung phan tu:');
for i:=1 to n do
begin
write('A[',i,']=');
readln(A[i]);
end;
d:=0; s:=0;
for i:=1 to n do
if A[i] mod 7=0 then
begin
inc(d);
s:=s+A[i];
end;
writeln('Co ',d,' so chia het cho 7);
write('tong cua chung la: ',s);
readln
end.