написать программу которая возьмёт 2 числа из текстового файла найдёт их сумму и выведет новый текстовый файл"

program zz1;

var

n, k, s: integer; / / задаем переменные целого типа

f1, f2: text; / / задаем переменную текстового типа для работы с файлом

begin

assign (f1, 'input. txt'); / / связываем переменную текстового типа с файлом

reset (f1); / / открываем файл для чтения

assign (f2, 'output. txt');

rewrite (f2); / / открываем файл для записи

read (f1, n, k);

s: = n + k; / / получаем сумму

write (f2, s); / / выводим ответ в файл output

close (f1); / / закрываем файл input

close (f2); / / закрываем файл output

end.