Question

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

Answer 1

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.