В! даны два числа. большее из них замените разностью чисел, а меньшее — суммой. тест для проверки: на входе программы а=10, b=2. в результате a=8, b=12.

Uses crt;
var a,b,s,r: integer;
begin
writeln('Введите первое число');
readln(a);
writeln('Введите второе число');
readln(b);
s:=a+b;
if a>b then
 begin
r:=a-b;
a:=r;
b:=s;
 end
else
begin
r:=b-a;
b:=r;
a:=s;
 end;
 
 writeln(a,b);
end.