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