Вопрос про div в Pascal

Question

Как сделать в pascal чтобы программа доставала мне первую цифру числа. Это можно с div, но это если программа сделана только для однотипных выражений. А если число будет меняться? К примеру для десятков div 10, а если в этой же программе нужно найти для введенных чисел, например для сотых или вообще тысячных?

Саша · Accepted Answer

Первая цифра достаётся с помощью mod, а не div (ой, я подумал про разряд единиц :D ) 
 
Вот так: 
while(a>9) do a:=a div 10; 
a - первая цифра

Вадим Камилов · Answer

короче вот так 
в цикле (пока число больше 9) делаешь так 
число = число div 10