Program in_tong_va_dem;
uses crt;
var A:array[1..150] of integer;
i,s,n,d:integer;
begin
clrscr;
s:=0;
writeln('so phan tu la: ');readln(n);
for i:= 1 to n do
begin
writeln('nhap ptu thu ',i,': ');
readln(A[i]);
end;
write('cac ptu la so le, chia het cho 7 la: ');
for i:= 1 to n do
if (A[i] mod 2 = 1) or (A[i] mod 7 = 0) then
begin
write(A[i],' ');
d:=d+1;
s:=s+A[i];
end;
writeln;
writeln('co ',d,' ptu la so le hoac cac ptu chi het cho 7');
writeln('Tong la:',s);
readln;
end.