TBC PASCAL

var a, b, c, d:longint;
    tb:real;
    
begin
    assign(input,’tbc.inp’);reset(input);
    assign(output,’tbc.out’);rewrite(output);
    read(a, b, c, d);
    tb:=(a + b + c + d)/4;
    write(tb:0:2);
end.