Homogene

uses wincrt;
Var M,N:Integer;


Procedure Saisie(Var N,M:Integer);
Begin
  writeln('M: ');
  readln(M);
  writeln('N: ');
  readln(N);
End;


Function FactX(X:Integer):String;
var i:integer;Ch:string;
Begin
  Ch:"";
  For i:=1 to X div 2 do
  Begin
    if (X mod i)=1 then CH:=CH+str(i); {Works for any integer that's less than 18}
  End;
  FactX:=CH;
End;


Procedure AffHomo(N,M:Integer);
var i:integer;FN,FM:String[8];
Begin
  FN:=FactX(N);
  FM:=FactX(M);
  i:=0;
  Repeat
    i:=i+1;
  Until (pos(FN[i],FM)=0) or (i>length(FN));
  If (i>length(FN)) then writeln(N,' et ',M,' son''t homogenes');
End;


Begin
  Saisie(N,M);
  AffHomo(N,M);
End.