2) вводится четырехзначное число с клавиатуры. определить цифру тысяч, сотен, десятков и единиц. в окне вывода должно быть так (это пример) введи четырехзначное число: 1234 цифра тысяч-1 цифра сотен-2 цифра десятков-3 цифра единиц - 4

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);