Imports System Public Module Program Public Sub Main() Do Dim line As String = Console.ReadLine() If line Is Nothing Then Exit Do End If Dim split As String() = line.Split(" "c) Dim a As Long = Long.Parse(split(0)), b As Long = Long.Parse(split(1)) Console.WriteLine(Math.Abs(a - b)) Loop End Sub End Module