Дано трехзначное целое число Х .Отыскать остаток от дробления творения всехего

// PascalABC.NET 3.4.2, сборка 1782 от 01.09.2018

// Внимание! Если программка не работает, обновите версию!

begin

 var число := ReadInteger('Введите трехзначное естественное число:');

 var (сотки, единицы) := (число div 100, число mod 10);

 var 10-ки := число div 10 mod 10;

 var ПроизведениеЦифр := сотки * 10-ки * единицы;

 var СуммаЦифр := сотни + десятки + единицы;

 Println('Разыскиваемый остаток равен', ПроизведениеЦифр mod СуммаЦифр);

 Println('Новое число', 100 * сотки + 10 * единицы + 10-ки)

end.

Введите трехзначное естественное число: 389

Разыскиваемый остаток равен 16

Новое число 398

begin

 var X := 125;

 var Prod := (X div 100) * (X div 10 mod 10) * (X mod 10);

 var Sum := (X div 100) + (X div 10 mod 10) + (X mod 10);

 Println('Остаток от дробления:', Prod mod Sum); //Остаток от деления: 2

 var Y := (X div 100) * 100 + (X mod 10) * 10 + (X div 10 mod 10);

 Println(Y); //152

end.