И вниз..жесткий диск, процессор, оперативная память
var
a, i, count, s: integer;
begin
repeat
if(i = 100) then break;
readln(a);
if(abs(a) > 300) then begin
writeln('Число по модулю не может быть > 300.');
continue
end
else if(a mod 9 = 0) and (a <> 0) then begin
inc(count);
s := s + a;
end;
if(a <> 0) then inc(i);
until(a = 0);
writeln('Среднее арифметическое: ', s / count);
end.