Напишите программу для решения . используйте операции div и mod. 1. задано двузначное число. найдите среднее арифметическое цифр числа.

Var a,b,c:integer;
s:real;
begin
write('Введите двузначное число: ');
readln(a);
b:= a div 10;
c:= a mod 10;
s:=(b+c)/2;
writeln('Среднее арифметическое цифр числа: ',s);
readln;
end.