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