Помогите задание по 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.