|
|
1.1 root 1: module main;
2: var p : pointer to array [1..10] of integer;
3: i : integer;
4: begin
5: new(p);
6: for i := 1 to 10 do
7: p^[i] := i;
8: end;
9: end main.
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.