program RandomNumberDigits;
 
uses
  SysUtils; // Для функции Randomize и Random
 
var
  number, hundreds, tens, units: Integer;
  sumDigits, productDigits: Integer;
 
begin
  Randomize; // Инициализация генератора случайных чисел
  number := Random(900) + 100; // Генерируем число от 100 до 999
 
  // Раскладываем число на цифры
  hundreds := number div 100;
  tens := (number div 10) mod 10;
  units := number mod 10;
 
  // Выводим число
  WriteLn('Случайное число: ', number);
 
  // Вычисляем сумму цифр
  sumDigits := hundreds + tens + units;
 
  // Вычисляем произведение цифр
  productDigits := hundreds * tens * units;
 
  // Выводим результаты
  WriteLn('Сумма цифр: ', sumDigits);
  WriteLn('Произведение цифр: ', productDigits);
end.

cHJvZ3JhbSBSYW5kb21OdW1iZXJEaWdpdHM7Cgp1c2VzCiAgU3lzVXRpbHM7IC8vINCU0LvRjyDRhNGD0L3QutGG0LjQuCBSYW5kb21pemUg0LggUmFuZG9tCgp2YXIKICBudW1iZXIsIGh1bmRyZWRzLCB0ZW5zLCB1bml0czogSW50ZWdlcjsKICBzdW1EaWdpdHMsIHByb2R1Y3REaWdpdHM6IEludGVnZXI7CgpiZWdpbgogIFJhbmRvbWl6ZTsgLy8g0JjQvdC40YbQuNCw0LvQuNC30LDRhtC40Y8g0LPQtdC90LXRgNCw0YLQvtGA0LAg0YHQu9GD0YfQsNC50L3Ri9GFINGH0LjRgdC10LsKICBudW1iZXIgOj0gUmFuZG9tKDkwMCkgKyAxMDA7IC8vINCT0LXQvdC10YDQuNGA0YPQtdC8INGH0LjRgdC70L4g0L7RgiAxMDAg0LTQviA5OTkKCiAgLy8g0KDQsNGB0LrQu9Cw0LTRi9Cy0LDQtdC8INGH0LjRgdC70L4g0L3QsCDRhtC40YTRgNGLCiAgaHVuZHJlZHMgOj0gbnVtYmVyIGRpdiAxMDA7CiAgdGVucyA6PSAobnVtYmVyIGRpdiAxMCkgbW9kIDEwOwogIHVuaXRzIDo9IG51bWJlciBtb2QgMTA7CgogIC8vINCS0YvQstC+0LTQuNC8INGH0LjRgdC70L4KICBXcml0ZUxuKCfQodC70YPRh9Cw0LnQvdC+0LUg0YfQuNGB0LvQvjogJywgbnVtYmVyKTsKCiAgLy8g0JLRi9GH0LjRgdC70Y/QtdC8INGB0YPQvNC80YMg0YbQuNGE0YAKICBzdW1EaWdpdHMgOj0gaHVuZHJlZHMgKyB0ZW5zICsgdW5pdHM7CgogIC8vINCS0YvRh9C40YHQu9GP0LXQvCDQv9GA0L7QuNC30LLQtdC00LXQvdC40LUg0YbQuNGE0YAKICBwcm9kdWN0RGlnaXRzIDo9IGh1bmRyZWRzICogdGVucyAqIHVuaXRzOwoKICAvLyDQktGL0LLQvtC00LjQvCDRgNC10LfRg9C70YzRgtCw0YLRiwogIFdyaXRlTG4oJ9Ch0YPQvNC80LAg0YbQuNGE0YA6ICcsIHN1bURpZ2l0cyk7CiAgV3JpdGVMbign0J/RgNC+0LjQt9Cy0LXQtNC10L3QuNC1INGG0LjRhNGAOiAnLCBwcm9kdWN0RGlnaXRzKTsKZW5kLg==

Mgo2Cjc=

2
6
7