Код IT Загрузка примера кода…

Pascal main.pas
program SwapDemo;

procedure Swap(var a, b: integer);
var
  t: integer;
begin
  t := a;
  a := b;
  b := t;
end;

var
  x, y: integer;

begin
  ReadLn(x, y);
  Swap(x, y);
  WriteLn(x, ' ', y);
end.
program SwapDemo;

procedure Swap(var a, b: integer);
var
  t: integer;
begin
  t := a;
  a := b;
  b := t;
end;

var
  x, y: integer;

begin
  ReadLn(x, y);
  Swap(x, y);
  WriteLn(x, ' ', y);
end.