Даны два числа 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.