program bai_giai;
uses crt;
var A:array[1..10000] of integer;
m,i,min,t:integer;
begin
clrscr;
write('Nhap m: '); readln(m);
for i:=1 to m do
begin
write('Nhap so thu ',i,': '); readln(A[i]);
end;
t:=0; min:=A[1];
for i:=1 to m do
begin
t:=t+A[i];
if A[i]<min then min:=A[i];
end;
writeln('Tong cac so: ',t);
writeln('Trung binh cong: ',t/m:0:2);
writeln('So nho nhat: ',min);
readln;
end.
