нужна помощь програмистов в турбо паскале :Составить программу, которая выводит на экран третью цифру заданного четырехз

readln x;
writeln ((x mod 100) div 100);
________________________
например число 7462
7462 mod 100 получится 62
62 div 10 будет 6 - третья цифра от 7462