var A:array[1..100] of Integer;
i,N,max,min:integer;
S:real;
begin
  While TRUE do
  begin
  N:=N+1;
  Readln(A[i]);
  S:=S+A[i];
  end;
S:=S/N;
min:=A[1];
max:=A[2];
  For i:=1 to N do
  begin
    If A[i]<min then
    min:=A[i];
    If A[i]>max then
    max:=A[i];
  end;
Writeln(S,' ',min,' ',max);  
end.