uses crt;
var i,n:integer;
tb:real;
a: array [1..10000] of real;
begin
clrscr;
write('Nhap n: ');readln(n);
tb:=0;
writeln('Nhap ',n,' so thuc:'); i:= 1;
while i<= n do
begin
write('so thu ',i,': ');readln(a[i]);
tb:=tb+a[i];
i:=i+1;
end;
tb:=tb/n;
writeln('TBC cua ',n,' so thuc la : ',tb:0:4);
readln;
end.