(!******************************************************
   Mosel User Guide Example Problems
   ================================= 

   file lcdiv1.mos 
   ``````````````` 
   Using the `while` loop.
 
   (c) 2001 Dash Associates
       author: S. Heipcke
*******************************************************!)

model Lcdiv1

 declarations
  A,B: integer
 end-declarations

 write("Enter two integer numbers:\n  A: ")
 readln(A)
 write("  B: ")
 readln(B)

 while (A <> B) do
  if (A>B) then 
   A:=A-B 
  else B:=B-A 
  end-if
 end-do

 writeln("Largest common divisor: ", A)

end-model