В этой задаче нужно посчитать сумму всех чисел. Чтобы не проверять делимость суммы на количество чисел и не работать с вещественными числами (это неудобно из-за возникающей погрешности при делении), можно сравнивать эту сумму с каждым из чисел, домноженным на их количество.
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.
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.