Imports System
 
Public Class Test
	Public Shared Sub Main()
		dim x,y,N as integer
		console.writeline("Введите число(n>7)")
	    n=console.readline
		if n mod 5<>0 and n mod 3<>0 then
		console.writeline("Целых значений нет")
		end if
		if n mod 5 = 0 then
		y=n\5
		x=0
		console.writeline("x=" & x & "y=" & y)
		end if
		if n mod 3 = 0 then
		x=n\3
		y=0
		console.writeline("x=" & x & "y=" & y)
		end if
		console.readkey
	End Sub
End Class

SW1wb3J0cyBTeXN0ZW0KClB1YmxpYyBDbGFzcyBUZXN0CglQdWJsaWMgU2hhcmVkIFN1YiBNYWluKCkKCQlkaW0geCx5LE4gYXMgaW50ZWdlcgoJCWNvbnNvbGUud3JpdGVsaW5lKCLQktCy0LXQtNC40YLQtSDRh9C40YHQu9C+KG4+NykiKQoJICAgIG49Y29uc29sZS5yZWFkbGluZQoJCWlmIG4gbW9kIDU8PjAgYW5kIG4gbW9kIDM8PjAgdGhlbgoJCWNvbnNvbGUud3JpdGVsaW5lKCLQptC10LvRi9GFINC30L3QsNGH0LXQvdC40Lkg0L3QtdGCIikKCQllbmQgaWYKCQlpZiBuIG1vZCA1ID0gMCB0aGVuCgkJeT1uXDUKCQl4PTAKCQljb25zb2xlLndyaXRlbGluZSgieD0iICYgeCAmICJ5PSIgJiB5KQoJCWVuZCBpZgoJCWlmIG4gbW9kIDMgPSAwIHRoZW4KCQl4PW5cMwoJCXk9MAoJCWNvbnNvbGUud3JpdGVsaW5lKCJ4PSIgJiB4ICYgInk9IiAmIHkpCgkJZW5kIGlmCgkJY29uc29sZS5yZWFka2V5CglFbmQgU3ViCkVuZCBDbGFzcw==