ОЧЕНЬ ДАЮ 25 поинтов В тетради составить программу решения задачи: "Ввести с клавиатуры четырехзначное число. Вывести число тысяч, сотен, десятков, единиц"

readln(b);

a=b div 1000;

b=b mod 1000;

writeln("Тысяч: ",a);

a=b div 100;

b=b mod 100;

writeln("Сотен: ",a);

a=b div 10;

b=b mod 10;

writeln("Десятков: ",a);

writeln("Единиц: ",b);