Составьте программу на компьютере нахождение средних арифметических 2 чисел

Uses crt;

var

a, b, c:byte

begin

Writeln ('Введите 2 числа через пробел')

readln (a, b, c)

c: = (a+b) div 2

Writeln ('Среднее арифметическое ', c)

Readln

End.

По-моему так, ну ты скоомпелируй если что