|
|
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.