Задано n целых чисел. вам необходимо найти среднее арифметическое этих чисел. гарантируется, что среднее арифметическое всегда целое.

Var count, a, b, N, i: integer;
Begin
     writeln('N = ');
     readln(N);
     for i := 1 to N do
     begin
          write(i, ': ');
          readln(a);
          b := b + a;
          count := count + 1;
     end;     
writeln('> ', b/a);
end.

Вот