13 lines
202 B
ObjectPascal
13 lines
202 B
ObjectPascal
|
begin
|
||
|
|
var pi: ^integer;
|
||
|
|
New(pi);
|
||
|
|
pi^ := 3;
|
||
|
|
Writeln(pi,' ',pi^);
|
||
|
|
pi^ := 5;
|
||
|
|
Writeln(pi,' ',pi^);
|
||
|
|
var pi1: ^integer := pi;
|
||
|
|
pi1^ := 666;
|
||
|
|
Writeln(pi1,' ',pi1^);
|
||
|
|
Writeln(pi,' ',pi^);
|
||
|
|
end.
|