В ПАСКАЛЕ ,ПОМОГИТЕ!!!Даны два числа. Большее из них замените разностью чисел, а меньшее...

Question

В ПАСКАЛЕ ,ПОМОГИТЕ!!!Даны
два числа. Большее из них замените разностью чисел, а меньшее — суммой.

Тест
для проверки: На входе программы
а=10, b=2. В результате a=8, b=12.

Answer 1

Var a,b:real;
begin
read(a,b);
if a>b then
begin
a:=a-b;
b:=2*b+a;
end
else
begin
b:=b-a;
a:=2*a+b;
end;
write(a,' ',b)
end.