В паскале! Даны

два числа. Большее из них замените разностью чисел, а меньшее - суммой.

Тест

для проверки: На входе программы

а=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.