uses crt, dos;
var a:aray of integer;
i,n:byte 
begin
randomize;
for i:=1 to 100 do
a[i]:=-100+random(201);
for i:=1 to 100 do
writeln(a[i]:4);
for i:=1 to 100 do
if a[i] mod 7=0 then
n:=n+1;
writeln(n);
readln;
end.