Return to t15.p CVS log

Up to [CSRG BSD Unix] / 43BSDTahoe / ucb / pascal / tstpx / src

Annotation of 43BSDTahoe/ucb/pascal/tstpx/src/t15.p, revision 1.1

1.1     ! root        1: program main(output);
        !             2: const
        !             3:        size = 10;
        !             4: var
        !             5:        aset: set of 1..size;
        !             6:        i, j: integer;
        !             7: begin
        !             8:        aset := [];
        !             9:        for i := 1 to size do
        !            10:        begin
        !            11:                aset := [i]+aset;
        !            12:                for j := 1 to size do
        !            13:                        if j in aset then
        !            14:                                writeln(i,j);
        !            15:        end;
        !            16: end.

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.