Attribute VB_Name = "Add"
Option Explicit






Sub Main()
    Const DataPath   As String = "C:\BayanContest\Practice1-Add\"
    Const InputFile  As String = DataPath & "problem1.in"
    Const OutputFile As String = DataPath & "problem1.out"

    ConvertNewLineInFile InputFile


    Dim i As Long, count As Long, a As Long, b As Long
    
    Open InputFile For Input As #1
    Open OutputFile For Output As #2
    
    Input #1, count
    
    For i = 1 To count
        Input #1, a, b
        Print #2, CStr(a + b)
    Next
    
    Close
End Sub









' Changes all EOL (end-of-line) to CrLf. for more information visit: http://en.wikipedia.org/wiki/Newline
Public Sub ConvertNewLineInFile(ByVal FileName As String)
    Dim FileNum As Integer
    FileNum = FreeFile
    
    Dim Buffer As String
    
    On Error GoTo ConvertNewLineInFile_Error
    
    Open FileName For Binary Access Read Write As FileNum
    
    Buffer = String(LOF(FileNum), 0)
    Get FileNum, , Buffer
    
    Buffer = Replace(Buffer, vbLf, vbCr)
    Buffer = Replace(Buffer, vbCr & vbCr, vbCr)
    Buffer = Replace(Buffer, vbCr & vbCr, vbCr)
    Buffer = Replace(Buffer, vbCr, vbCrLf)
    
    Put FileNum, 1, Buffer
    
ConvertNewLineInFile_Error:
    Close FileNum
End Sub