program Day;
uses crt;
var n,i,x,max,min,TB: integer;
Begin
clrscr;
write('Nhap so cac so nguyen: '); readln(n);
max:=1; min:=1;
for i:=1 to n do
begin
write('So thu ',i,': '); readln(x);
if max<x then max:=x;
if min>x then min:=x;
TB:=TB+x;
end;
writeln('max = ',max,' , min = ',min);
write('Trung binh cong day = ',TB/n:2:1);
readln
End.