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

Begin
var a:=ReadInteger;
var w,q: integer;
w:=a div 10;
q:=a mod 10;
write((q+w)/2);
end.