С клавиатуры вводится трехзначное число. Найти произведение цифр числа; разделить 1 цифру числа на 3 цифру и вывести результат( в паскале)

Предыдущий
вопрос Следующий
вопрос

program CalculateProductAndDivide;
var
number, firstDigit, secondDigit, thirdDigit, product, result: integer;
begin
write('Enter a three-digit number: ');
readln(number);

thirdDigit := number mod 10;
secondDigit := (number div 10) mod 10;
firstDigit := number div 100;

product := firstDigit secondDigit thirdDigit;
result := firstDigit div thirdDigit;

writeln('The product of the digits is: ', product);
writeln('The result of dividing the first digit by the third digit is: ', result);
end.