NHIETDO PASCAL

var    t:array[1..7] of real;
       s,tb:real;
       d:longint;
       
procedure nhap;
var i:longint;
begin
       for i:=1 to 7 do 
        readln(t[i]);
end;

procedure tinh_tb;
var i:longint;
begin
    for i:=1 to 7 do 
        s:=s+t[i];
    tb:=s/7;
    writeln(tb:0:2);
end;

procedure dem_so_ngay;
var i:longint;
begin
    for i:=1 to 7 do
        if t[i]>tb then 
            inc(d);
    write(d);
end;

begin
    assign(input,'nhietdo.inp');reset(input);
    assign(output,'nhietdo.out');rewrite(output);
    nhap;
    tinh_tb;
    dem_so_ngay;
end.