Помогите срочно!!! Составьте алгоритм позволяющий вывести на экран среднюю цифру некоторого числа введенного с клавиатуры. Алгоритм должен работать для чисел с нечетным кол-вом цифр.

var a:integer;begin   writeln('введите трехзначное число: ');   readln(a);      a:=a mod 100 div 10;      writeln('средняя цифра: ',a);end.