Не могу составить программу, уже весь мозг перевернул, помогите через Pascal

Присвоить целой переменной d четвертую от конца цифру в записи
положительного целого числа x (например, если x=34517, то d=4)