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

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.