Microsoft Small Basic

Program Listing: PFB988

List Program

TextWindow.Write("Primul număr: ")
a=TextWindow.ReadNumber()
TextWindow.Write("Al doilea număr: ")
b=TextWindow.ReadNumber()
aa=a
bb=b
While (aa<>bb)
If aa>bb Then
aa=aa-bb
Else
bb=bb-aa
EndIf
EndWhile
TextWindow.WriteLine("CMMDC este "+aa)
TextWindow.WriteLine("CMMDC este "+(a*b)/aa)