Введите трёхзначное число  вывести на экран число сотен,десятков,единиц в этом числе.
Работа в программе PascalABCNET

var numb,sot,des,ed:integer;beginreadln(numb);sot:= numb div 100;des:= numb mod 100;des:=des div 10;ed:= numb mod 10;writeln('сотни=',sot,'  десятки=',des,'  единицы=',ed);end.