Вывести вторую цифру терёхзначного числа

Разделить число на 10, полученную целую часть от деления еще раз разделить на 10 и взять остаток от деления

на Pascal это выглядит так:

x:= 156;
y:=((x div 10) mod 10)

результат: у=5