Составить программу вычисления среднего балла, набранного спортсменом —…

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.