8 lines
75 B
ObjectPascal
8 lines
75 B
ObjectPascal
var pi:^integer;
|
|
|
|
begin
|
|
new(pi);
|
|
pi^:=1;
|
|
writeln(pi^);
|
|
readln;
|
|
end. |