Сгенерировать случайное число, вывести на экран это число, а также сумму и произведение его цифр

Вот программа на Паскале

var

 c, s, x: integer;

begin

 c := random(999);

 writeln(c);

 s := (c div 100) + ((c mod 100) div 10) + ((c mod 100) mod 10);

 writeln(s);

 x := (c div 100) * ((c mod 100) div 10) * ((c mod 100) mod 10);

 writeln(x);

end.