Дано целое число определить равна ли сумма факториалов цифр данного числа самому числу. паскаль, процедуры.

program DigFact;

var x: Integer;

function factorial (x: integer) : integer; var i: integer; y: integer; begin y:=x; for i:=1 to x-1 do begin dec (y) ; x:=x*y; end; factorial:=x; end;

function factorialSum (x: integer) : integer; var y: integer; begin factorialSum:=0; repeat y:=x mod 10; x:=x div 10; factorialSum:=factorialSum+factorial (y) ; until x = 0; end;

begin write ('x = ') ; readln (x) ; if factorialSum (x) = x then writeln ('True') else writeln ('False') ; readln () ; end. Интересное задание, поломал голову немного.