[Randomize]

Dim numbers(100)
For i=0 To 100
	numbers(i)=Rand(0,100)
Next



f%=WriteFile("Result.txt")

Local old_nod=0
Local old_v1,old_v2

For i=0 To 99
	Local v1=numbers(i)
	Local v2=numbers(i+1)	

	Local tnod%=NOD(v1,v2)

	If tnod>old_nod Then
		old_nod=tnod
		old_v1=v1
		old_v2=v2
	EndIf

	WriteLine(f,"Nod("+v1+","+v2+")="+tnod)

Next
WriteLine(f,"Bigest nod("+old_v1+" , "+old_v2+") "+old_nod)
CloseFile(f)

; ищет нод
Function NOD%(x%,y%)
	If x<>0 Then Return NOD(y Mod x,x) Else Return y
End Function

;ищет нок
Function NOK%(x%,y%)
	Return Int(x / NOD (x,y))*y
End Function

АССА!?