написать программу для нахождения предпоследней цифры любого числа
ПОМОГИТЕ ПЛИЗ НЕ ШАРЮ В ЭТОМ

var a,b:integer;beginwrite('a (>0) = ');readln(a);b:=a mod 100 div 10;writeln('Предпоследняя цифра = ',b);end.Пример:a (>0) = 180653Предпоследняя цифра = 5