Задано двузначное число. Найдите среднее арифметическое цифр числа. Решить с помощью операций div и mod.
Пожалуйста быстреее

var

 n, a, b: integer;

 avg: real;

begin

 readln(n);

 a := n div 10; // первая цифра

 b := n mod 10; // вторая цифра

 avg := (a + b) / 2.0; // среднее арифметическое

 writeln(avg);

end.