Program Srednball;
Var a,b,d : integer;
c : real;
begin
writeln (' vvedite balli, nabrannie sportsmenom po 3 vidam sporta');
readln (d);
readln (a);
readln (b);
c:=(a+b+d)/3;
writeln (' Srednii ball= ', c:4:2);
readln;
End.
Program Srednball;
Var a,b,d : integer;
c : real;
begin
writeln (' vvedite balli, nabrannie sportsmenom po 3 vidam sporta');
readln (d);
readln (a);
readln (b);
c:=(a+b+d)/3;
writeln (' Srednii ball= ', c:4:2);
readln;
End.