среднее арифметическое:
(a+b)/2
PascalABC
var a,b:real; begin readln (a,b); writeln ('среднее арифметическое = ', (a+b)/2); readln; end.