(Pascal ABC) Дано двузначное число.Найти среднее арифметическое(при помощи div и mod)

Question

(Pascal ABC)
Дано двузначное число.Найти среднее арифметическое(при помощи div и mod)

Comments

Среднее арифметическое чисел?

Answer 1

Var
a:integer;
begin
 Readln(a);
 Writeln((a div 10 + a mod 10)/2)
end.

Пример:
42
3