Euclidean algorithm

Module Evklid

    Sub Main()
        Dim a, b As Integer
        Console.Write("a= ")
        a = CInt(Console.ReadLine())
        Console.Write("b= ")
        b = CInt(Console.ReadLine())
        While (a <> b)
            If (a > b) Then
                a = a - b
            Else
                b = b - a
            End If
        End While
        Console.WriteLine("Най - голям общ делител на a  и b  е {0}", a)
        Console.ReadKey()
    End Sub

End Module