9 lines
100 B
ObjectPascal
9 lines
100 B
ObjectPascal
|
type pint=^integer;
|
||
|
|
var p:pint;
|
||
|
|
i:integer;
|
||
|
|
begin
|
||
|
|
i:=1;
|
||
|
|
p:=@i;
|
||
|
|
p^:=2;
|
||
|
|
writeln(p^);
|
||
|
|
end.
|