При условии что файл дано записан в 2строки без букв, в 1 значение
Например
23
45
Код:
Program p;
Var f1, f2: text;
A, B, x :integer;
Begin
Assign(f1,"C:\........\дано.txt")
Reset(f1);
Assign(f2,"C:\........\ответ.txt")
Rewrite(f2);
While not eof(f1) do
Begin
readln(f1,A);
readln(f1,B);
x:=A-B;
IF x>=A then writeln(f2,x);
x:=A+B;
IF x<A then writeln(f2,x);
End;
close(f1,f2);
end.
Могу что то путать сам не программирую а знания паскаля 6-тилетней давности просто на работе нечем занятся))