Question

Написать программу, которая удваивает меньшее из двух чисел и увеличивает на два большее из чисел

Answer 1

var a, b : integer;
Begin
  read(a,b);
  if a < b then begin
   a:= a+b;
   b := a-b;
   a:= a--b;
  end;
  writeln(a+2,' ', b * 2);
End.