uses crt;
var a:array[1..10000] of real;
n,i:integer;
s:real;
begin
clrscr;
write('nhap n:'); readln(n);
for i:=1 to n do
begin
write('a[',i,']:'); readln(a[i]);
s:=s+a[i];
end;
s:=s/n;
writeln('trung binh cong: ',s:0:2);
writeln('cac phan tu co gia tri lon hon hoac bang trung binh cong la:');
for i:=1 to n do if (a[i]>=s) then writeln(a[i]:0:2);
readln;
end.