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

Question

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

---

Answer 1

  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.