Pascal :

var a,b,c,d,e:integer;
    f:real;
begin
 readln (a,b,c,d);
 e:=a+b+c+d;
 f:=e/4;
 writeln(e);
writeln(f:10:2);
end.