Link_test

program link_test;

var
  x, y, z: integer;
  a, b, c: ^integer;

begin
  x := 3;
  a := @x;
  writeln(a^);

  y := 5;
  b^ := y;
  writeln(b^);

  b := @z;
  b^ := y;
  writeln(b^);

  x := 7;
  writeln(a^);

  y := 10;
  writeln(b^);
  writeln(z);

  c := a;
  writeln(c^);

  c^ := z;
  writeln(a^);

  a := @y;
  writeln(c^);
  writeln(a^);
  writeln(x);
end.