Сумма и произведение цифр случайного трехзначного числа

Алгоритм решения задачи: 

• random(900) генерирует случайное число от 0 до 899. Если прибавить к нему 100, то получится диапазон от 100 до 999 включительно, т. е. охватывает все трехзначные числа.
• Чтобы извлечь из числа цифру сотен надо его разделить нацело на 100.
• Для получения цифры десяток можно сначала разделить нацело на 10, а затем найти остаток от деления на 10.
• Единицы извлекаются путем нахождения остатка от деления числа на 10.

Программа на языке Паскаль: 

var
	n: integer;
	a,b,c: byte;
begin
	randomize;
	n := random(900) + 100;
	writeln(n);
	a := n div 100;
	b := n div 10 mod 10;
	c := n mod 10;
	writeln('Сумма: ',a+b+c);
	writeln('Произведение: ',a*b*c);
end.

Пример выполнения программы:

536
Сумма: 14
Произведение: 90