Uses crt;
Var a,b,c,sum,i:integer;
Begin
c:=0;
i:=0;
Writeln('Вводите числа, когда закончите - введите 0');
Repeat
readln(a);
if (a mod 8 = 0) and (a<>0) then begin c:=1; sum:=sum+a; i:=i+1; end;
if abs(a)>30000 then write('ВНИМАНИЕ! ОШИБКА! ЧИСЛО НЕ ДОЛЖНО ПРЕВЫШАТЬ 30000 ПО МОДУЛЮ! ПЕРЕЗАПУСТИТЕ ПРОГРАММУ!');
b:=b+1;
Until(a=0) and (c=1) or (b>999);
writeln('Ср арифм. чисел, кратных 8 = ',sum/i);
End.
