program Project2;

{$APPTYPE CONSOLE}

uses
    SysUtils;

var
    f1 : text;
    st : string;
    i, j: Integer;
begin
    assign(f1, '111.txt'); {связать с файлом 111.txt  файловую переменную f1  }
    reset (f1); { открыть файл для чтения }
    readln (f1, st);    {читаем строку из файла f1 }
    i := StrToInt(Copy(st, 1, Pos(',', st)-1)); { первое число }
    j := StrToInt(Copy(st, Pos(',', st)+1, length (st))); { второе }
    writeln(i, ' + ', j, ' = ', i+j); { рисуем суму }
    close (f1); { закрыть файл  для чтения}

    assign(f1, '222.txt'); {связать с файлом 222.txt  файловую переменную f1  }
    rewrite  (f1); { создать новый файл  с именем 222.txt }
    writeln ( f1, i+j); { записать суму в файл}
    close (f1);    { закрыть файл для записи }
    Sleep(1000);
end.