Вычислить значение выражения

program peremenaa;
uses crt;
var a,b,c:integer;
 
begin
clrscr;
a:=20;
b:=13;
writeln('A=',a,' B=',b);
readln;
c:=b;
b:=a;
a:=c;
writeln('B=',b,' A=',a);
end.
 
к этому идет продолжение задачи.
Выполните задание без использования третьей переменной. Используйте действия сложения и вычитания.
Я сделал так.
                                                        Решение
program peremenaa;
uses crt;
var a,b:integer;
begin
clrscr;
a:=20;
b:=13;
a:=a+1;
writeln('A=',a,' B=',b);
readln;
b:=b-1;
writeln('B=',b,' A=',a);
readln;
end.

write(abs(29*54-842));

a:=a+b;
b:=a-b;
a:=a-b;

program abc_;
uses crt;
var a,b,c:integer;
begin
clrscr;
a:=39;
b:=54;
c:=sqr(-9);
write(abs(39*54-(sqr9));
readln;
end.

program abc_;
uses crt;
var a,b,c:integer;
begin
clrscr;
a:=39;
b:=54;
c:=sqr(-9);
write(abs(39*54-c));
readln;
end.