program tinh_trung_binh;
uses crt;
var X:array[1..100] of integer;
n,i,t:integer;
begin
clrscr;
write('Nhap n: '); readln(n);
t:=0;
for i:=1 to n do
begin
write('Nhap so thu ',i,': '); readln(X[i]);
t:=t+X[i];
end;
write('Trung binh cong cac so trong day la: ',t/n:2:2);
readln;
end.