дано четырехзначное число найти в нём число тысяч сотен десятков единиц паскаль

тысячи := число div 1000;
сотни := (число div 100) mod 10;
десятки := (число mod 100) div 10;
единицы := число mod 10;