program exPointers;
var
number: integer;
iptr: ^integer;
begin
number := 100;
writeln('Number is: ', number);
iptr := @number;
writeln('iptr points to a value: ', iptr^);
iptr^ := 200;
writeln('Number is: ', number);
writeln('iptr points to a value: ', iptr^);
end.
cHJvZ3JhbSBleFBvaW50ZXJzOwp2YXIKCW51bWJlcjogaW50ZWdlcjsKCWlwdHI6IF5pbnRlZ2VyOwoJCmJlZ2luCgludW1iZXIgOj0gMTAwOwoJd3JpdGVsbignTnVtYmVyIGlzOiAnLCBudW1iZXIpOwoJCglpcHRyIDo9IEBudW1iZXI7Cgl3cml0ZWxuKCdpcHRyIHBvaW50cyB0byBhIHZhbHVlOiAnLCBpcHRyXik7CgkKCWlwdHJeIDo9IDIwMDsKCXdyaXRlbG4oJ051bWJlciBpczogJywgbnVtYmVyKTsKCXdyaXRlbG4oJ2lwdHIgcG9pbnRzIHRvIGEgdmFsdWU6ICcsIGlwdHJeKTsKCWVuZC4=