Задано двузначное число найдите среднее арифметическое цифр числа используйте операции div и mod

var number, a, b:integer;

begin

writeln ('Введите двузначное число') ;

readln (number) ;

a:=number div 10;

b:=number mod 10;

writeln (a,' - Первая цифра числа') ;

writeln (b,' - Вторая цифра числа') ;

writeln ('Среднее арифметическое цифр числа = ', (a+b) / 2) ;

end.