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

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.