I način (uz korišćenje pomoćne promenljive)

II način (bez pomoćne promenljive)

var

  x, y, p : integer;

begin

  Read(x,y);

  p := x;

  x := y;

  y := p;

  WriteLn(x);

  WriteLn(y);

end.

var

  x, y : integer;

begin

  Read(x,y);

  x := x + y;

  y := x – y;

  x := x – y;

  WriteLn(x);

  WriteLn(y);

end.