home *** CD-ROM | disk | FTP | other *** search
/ minnie.tuhs.org / unixen.tar / unixen / PDP-11 / Distributions / ucb / spencer_2bsd.tar.gz / 2bsd.tar / src / pascal / tests / t15.p < prev    next >
Text File  |  1980-02-17  |  226b  |  17 lines
  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.
  17.