Ну таких чисел несколько, да? Типа 2*3*4 или 1*1*24. Будем делать таким образом. Программа находит такие числа и выводит на экран само число и их сумму не исключены и повторы в суммах(точнее они обязательно будут).

program ff;

uses crt; //можно и без этого но это удобнее

var i1,i2,i3: integer;

begin

 For i1:=1 to 9 do

  For i2:=0 to 9 do

   for i3:=0 to 9 do

     if i1*i2*i3=24 then writeln(i1*100+i2*10+i3,' сумма цифр ',i1+i2+i3);

end.

Вопросы в личку. В следующий раз можешь задать задание здесь http://znanija.com/gruppa/1017