Присвоить переменной D третью от конца цифру в записи положительного целого числа — PureBasic(Бейсик)

Dim N as Integer = 123456
DIM D as Integer

D=N\100 mod 10

print "Rez = "; D