Дано трехзначное целое число Х.

Найти остаток от деления произведения всех

его цифр на сумму всех его цифр. Вывести новое число Y, поменяв местами

вторую и третью цифру числа X.

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.