Найти НОК ('x' и его суммы (x2)) например: 26=x; x2=6+2=8; + найти НОК или 129=x; x2=1+2+9=12; + найти НОК НО только ввиде программы!

{ Паскаль }

Function NOD (a, b : Longint) : Longint;

Begin

If (a mod b) = 0 then NOD:=b else Nod:=NOD (b, a mod b) ;

end;

Function NOK (a, b : Longint) : Longint;

Begin

NOK:=abs (a*b) div NOD (a, b) ;

End;

Function SumCifr (A : Longint) : Integer;

Begin

If A>0 then SumCifr: = (A mod 10) + SumCifr (A div 10) else SumCifr:=0;

End;

Var x : Integer;

Begin

Readln (x) ;

Writeln (NOK (x, SumCifr (x))) ;

end.