|
|
1.1 ! root 1: {$s+} ! 2: program test(output); ! 3: ! 4: var ! 5: e :(red, pink, green, orange); ! 6: i :integer; ! 7: j :boolean; ! 8: ! 9: begin ! 10: i := 1; ! 11: writeln(i:6:2); ! 12: e := pink; ! 13: writeln(e); ! 14: writeln(orange); ! 15: j := TRUE; ! 16: writeln(false); ! 17: writeln(j); ! 18: end.
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.