Возьмите листинг, удалите лишние переменные и строки с операциями, оставьте только одну арифметическую операцию и будет вам счастье/
Вот листинг для операции сложения, исходные данные вводятся с клавиатуры. При необходимости самостоятельно добавьте чтение данных из файла, это нетрудно
.
Код:
var
a,b,s:integer;
f:text;
begin
assign(f,'out.txt');
rewrite(f);
readln(a,b);
s:=a+b;
writeln(f,'a+b=',s);
close(f);
readln
end.
Любой листинг, который здесь выкладывается, является своего рода рабочей программой, так как проверяется перед публикацией в среде программирования.