valerianka511 Программа нужна или просто вычислить? Если просто вычислить, то нужно сумму этих чисел разделить на их количество, т.е. 3Program sr;Var a,b,c,rez:real;BeginWriteln('vvedi a,b,c ');Readln(a,b,c);Rez:=(a+b+c)/3;Writeln('rez=', rez);Readln;End.