Ответ:

var

 n, i, k, a: integer;

 s: real;  

begin

 repeat

   write('Количество чисел: ');

   readln(n)

 until n > 0;

 writeln('Введите числа:');

 for i := 1 to n do

   begin

     write('Число №', i, ': ');

     readln(a);

     if a mod 3 = 0

       then begin

         s := s + a;

         inc(k)

       end

   end;

 if k > 0

   then writeln(s / k :0:5)

   else writeln('Не одно из чисел не кратно трём')

end.

Объяснение: