Даны два числа a и b. вам нужно вычислить их сумму a+b. в этой вам нужно читать из файла и выводить ответ в файл

Var
  input, output : text;
  A, B : integer;
begin
  assign(input, 'input.txt');   //Ассоциируем переменные с файлами
  assign(output, 'output.txt');

  reset(input);      //Открываем файл для чтения
  rewrite(output);  //Открываем файл для записи

  readln(input, A);
  readln(input, B);
  writeln(output, A + B);

  close(input);   //Закрываем файлы
  close(output);
end.