Imports System
Public Class Test
Public Shared Sub Main()
dim a as integer, b as integer, c as integer
a=console.readline'6
b=10
c = Gcd(a,b)
console.writeline(c)
End Sub
Private shared Function Gcd(a, b)
Dim i as Integer
i = 2
Do Until i mod a = 0 And i mod b = 0
i=i+1
loop
return i
End Function
End Class
SW1wb3J0cyBTeXN0ZW0KClB1YmxpYyBDbGFzcyBUZXN0CglQdWJsaWMgU2hhcmVkIFN1YiBNYWluKCkKCQlkaW0gYSBhcyBpbnRlZ2VyLCBiIGFzIGludGVnZXIsIGMgYXMgaW50ZWdlcgoJCWE9Y29uc29sZS5yZWFkbGluZSc2CgkJYj0xMAoJCWMgPSBHY2QoYSxiKQoJCWNvbnNvbGUud3JpdGVsaW5lKGMpCglFbmQgU3ViCgoJUHJpdmF0ZSBzaGFyZWQgRnVuY3Rpb24gR2NkKGEsIGIpCgkJRGltIGkgYXMgSW50ZWdlcgoJCWkgPSAyCgkJRG8gVW50aWwgaSBtb2QgYSA9IDAgQW5kIGkgbW9kIGIgPSAwCgkJCWk9aSsxCgkJbG9vcAoJCXJldHVybiBpCglFbmQgRnVuY3Rpb24KRW5kIENsYXNzCg==