challenge-108/laurent-rosenfeld/pascal/ch-1.p


1
2
3
4
5
6
7
8
9
10
11
12

program memAddress;
var
   value: integer;
   intPtr: ^integer;
   result: ^word;

begin
   value := 42;
   intPtr := @value;
   result := addr(intPtr);
   writeln('Memory address of value is: ', result^);
end.