program bb;

var
i,h,sum:integer;
sred:real;
A,R: array [0..1000] of integer;

begin
h:=0;
sum:=0;

for i:=0 to 30 do
   begin
    A[i]:=random(1000);
    if(A [i]mod 3 = 0) then {если число делится на 3 без остатка, заносим его в другой массив}
     begin   
      R[h]:=A[i];   
      writeln(' ',R[h]);   
      h:=h+1; {добавляем единичку, тут смотри коммент ниже}
      end;
   end;

for h:=0 to h-1 do {обратите внимание на h-1}
   sum:=sum + R[h]; {складываем все числа в новом массиве}

sred:=sum/h;
writeln('Средний балл', sred:2:1);

end.

program bb;

const
N=3;
var
i,x,y:integer;
s:real;
a: array [1..N] of integer;
begin

for i:=1 to N do   
   readln(a[i]);

s:=0;   
x:=0;

for i:=1 to N do
   if(a [i]mod 3 = 0) then   
    begin
     s:=s+a[i];   
     x:=x+1;
    end;

s:=s/x;
writeln('Среднее арифметическое ', s:2:2);

end.