program nn;
var a,b,i:integer;c:real;
begin
i:=0;
b:=0;
repeat
readln(a); begin
if a mod 8=0
then b:=b+a;
i:=i+1;
end;
until a=0;
c:=b/i;
writeln(c);
end.
Где ошибка?