Напишите программу, которая должна прочитать N чисел и напечатать, есть ли среди них число, совпадающее с их средним арифметическим.

В этой задаче нужно посчитать сумму всех чисел. Чтобы не проверять делимость суммы на количество чисел и не работать с вещественными числами (это неудобно из-за возникающей погрешности при делении), можно сравнивать эту сумму с каждым из чисел, домноженным на их количество.
var
  n, i, sum: integer;
  a: array[1..100] of integer;
begin
  assign(input, 'input.txt');
  reset(input);
  assign(output, 'output.txt');
  rewrite(output);
  readln(n);
  for i:=1 to n do begin
    read(a[i]);
    sum:=sum + a[i];
  end;
  for i:=1 to n do
    if a[i] * n = sum then begin
      writeln(a[i]);
      halt;
    end;
  writeln('No');
end.