Дано трехзначное число. Найти число единиц в нем, число десятков в нем, число сотен в нем, сумму его цифр, произведение его цифр

var unitsCount,      tensCount,      hundredsCount,      number : integer; begin readln(number); unitsCount := number mod 10; tensCount := (number div 10) mod 10; hundredsCount := number div 100; writeln('Count of units: ', unitsCount); writeln('Count of tens: ', tensCount); writeln('Count of hundreds: ', hundredsCount); writeln('Sum of digits: ', unitsCount + tensCount + hundredsCount); writeln('Multiplication of digits: ', unitsCount * tensCount * hundredsCount); end.