program r6_22;
uses crt;
const n=10;
function count(q:integer):integer;
var test:boolean;
begin
count:=0;
test:=true;
while q>0 do begin
test :=(q mod 10<>8) and test;
q:=q div 10;
end;
if test then count:=1;
end;
function Searchnumb(q:integer):integer;
var x,s,i:integer;
begin
s:=0;
for i:=1 to q do begin
readln(x);
Inc(s,count(abs(x)));
end;
searchnumb:=s;
end;
Begin
writeln('количество чисел без цифр 8: ',searchnumb(n));
End.