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 (a0) 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.