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.