program D;
var
s :string;
i,k :integer;
begin
k:=0;
writeln('Vvedite');
readln(s);
for i:=1 to length(s) do
if s[i]='8' then
inc(k);
writeln('Vsego 8 ',k,' raz');
end.
program D;
var
s :string;
i,k :integer;
begin
k:=0;
writeln('Vvedite');
readln(s);
for i:=1 to length(s) do
if s[i]='8' then
inc(k);
writeln('Vsego 8 ',k,' raz');
end.