Дано целое число больше 999.используя одну операцию деления нацело и одно опереацию взятия остатка от деления, найти цифру,соотвевщию разряду тысяч в записи этого числа

Число делить нацело на 1000 и взятие остатка при делении на 10
на Pascal так:
A:=(N div 1000) mod 10;
где N - начальное число. А - получаемое число