[@Price[A]]

Помогите написать скрипт по данной задаче.


Двоечник Вася много раз оставался на второй год и уже выучил наизусть все ответы на экзаменационные вопросы. Проблема только с математикой. Каждый год на экзамене дают решить уравнение вида:

|x - A| + B = 0.

Год от года меняются только значения A и B, из-за чего Вася заваливает экзамен и не переходит в следующий класс. Он хочет специально для этого примера научиться получать его решение при различных значениях А и B. Помогите Васе написать программу, решающую данное уравнение.
Формат входных данных:

Во входном файле заданы два целых числа A и B (-2*109 ***8804; A, B ***8804; 2*109).
Формат выходных данных:
Пример
input.txt output.txt
2
109 73 73
3
16 98 64 64


Пример каким должен быть ответ:
Pascal/Delphi

program sum(input,output);
var
a,b: Integer;
begin
assign(input,'input.txt');
reset(input);
assign(output,'output.txt');
rewrite(output);
read(a,b);
writeln(a+b);
close(input);
close(output);
end.

Буду очень благодарен за помощь!

Добавлено через 2 минуты
Кстати говоря, кто поможет решить серию подобных задач и написать к ним скрипты, то я в долгу не останусь, подгоню на варе эксп пу +4(6)!

[@xsergeyx]

При условии что файл дано записан в 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-тилетней давности просто на работе нечем занятся))

[@buraymk2]

кто то сегодня пишет пробный ЕГЭ В новой форме)))