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

Dim N as Integer = 123456
DIM D as Integer
 
D=N\100 mod 10
 
print "Rez = "; D