NEONISH Uses crt; 
var 
a,b,c:byte 
begin 
Writeln('Введите 2 числа через пробел') 
readln(a,b,c) 
c:=(a+b) div 2 
Writeln('Среднее арифметическое ', c) 
Readln 
End.
По-моему так, ну ты скоомпелируй если что