daily pastebin goal
27%
SHARE
TWEET

Link_test

a guest Mar 19th, 2019 58 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. program link_test;
  2.  
  3. var
  4.   x, y, z: integer;
  5.   a, b, c: ^integer;
  6.  
  7. begin
  8.   x := 3;
  9.   a := @x;
  10.   writeln(a^);
  11.  
  12.   y := 5;
  13.   b^ := y;
  14.   writeln(b^);
  15.  
  16.   b := @z;
  17.   b^ := y;
  18.   writeln(b^);
  19.  
  20.   x := 7;
  21.   writeln(a^);
  22.  
  23.   y := 10;
  24.   writeln(b^);
  25.   writeln(z);
  26.  
  27.   c := a;
  28.   writeln(c^);
  29.  
  30.   c^ := z;
  31.   writeln(a^);
  32.  
  33.   a := @y;
  34.   writeln(c^);
  35.   writeln(a^);
  36.   writeln(x);  
  37. end.
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top