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