Пожалуйста посчитайте задание по Delphi 7 ))Подробно распишите код) пожалуйста))

  VAR  
  N1,N2,M,i:LongInt;
  BEGIN   Write('N1= ');
  ReadLn(N1);
  Write('N2= ');
  ReadLn(N2);
  If N1>N2 then M:=N1 else M:=N2;
   i:=M-1;  
  Repeat   Inc(i);
  Until ((i mod N1)=0) and ((i mod N2)=0);  
 Writeln('Result is ',i);
  Readln
  END.