Программа нужна или просто вычислить? Если просто вычислить, то нужно сумму этих чисел разделить на их количество, т.е. 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.