' GCD - функция, которая принимает два числа, для которых нужно найти НОД

' К посту приложена фотография с блок-схемой

Function GCD(m As Integer, n As Integer) As Integer

   m = Abs(m)

   n = Abs(n)

   For i = 1 To n * m

       If m Mod i = 0 And n Mod i = 0 Then

           GCD = i

       End If

   Next

End Function