даны 2 числа, если их сумма больше 10, то вывести на экран их удвоенное произведение, а иначе большее из чисел заменить их суммой, а меньшее разностью. pascal

var a, b, k:integer;beginreadln(a);readln(b);if (a+b)>10 thenwriteln(2*a*b)else if (a>b) then begin k:=a; a:=a+b; b:=k-b; endelse begin k:=b; b:=b+a; a:=k-a; end;writeln(a, ' ', b);end.