Даны 2 числа, если их сумма больше 10, то вывести на экран их удвоенное произведение, а иначе большее из чисел заменить их суммой, а меньшее разностью. pascal
Var a, b, k:integer; begin readln(a); readln(b); if (a+b)>10 then writeln(2*a*b) else if (a>b) then begin k:=a; a:=a+b; b:=k-b; end else begin k:=b; b:=b+a; a:=k-a; end; writeln(a, ' ', b); end.