home *** CD-ROM | disk | FTP | other *** search
/ Programmer's ROM - The Computer Language Library / programmersrom.iso / ada / piwg / z000132.ada < prev    next >
Encoding:
Text File  |  1988-05-03  |  2.3 KB  |  45 lines
  1. procedure z000132 is
  2.     A: array ( 1..200 ) of integer;
  3.     begin
  4.     A := (  200 => 200, 199 => 199, 198 => 198, 197 => 197, 196 => 196,
  5.         195 => 195, 194 => 194, 193 => 193, 192 => 192, 191 => 191,
  6.         190 => 190, 189 => 189, 188 => 188, 187 => 187, 186 => 186,
  7.         185 => 185, 184 => 184, 183 => 183, 182 => 182, 181 => 181,
  8.         180 => 180, 179 => 179, 178 => 178, 177 => 177, 176 => 176,
  9.         175 => 175, 174 => 174, 173 => 173, 172 => 172, 171 => 171,
  10.         170 => 170, 169 => 169, 168 => 168, 167 => 167, 166 => 166,
  11.         165 => 165, 164 => 164, 163 => 163, 162 => 162, 161 => 161,
  12.         160 => 160, 159 => 159, 158 => 158, 157 => 157, 156 => 156,
  13.         155 => 155, 154 => 154, 153 => 153, 152 => 152, 151 => 151,
  14.         150 => 150, 149 => 149, 148 => 148, 147 => 147, 146 => 146,
  15.         145 => 145, 144 => 144, 143 => 143, 142 => 142, 141 => 141,
  16.         140 => 140, 139 => 139, 138 => 138, 137 => 137, 136 => 136,
  17.         135 => 135, 134 => 134, 133 => 133, 132 => 132, 131 => 131,
  18.         130 => 130, 129 => 129, 128 => 128, 127 => 127, 126 => 126,
  19.         125 => 125, 124 => 124, 123 => 123, 122 => 122, 121 => 121,
  20.         120 => 120, 119 => 119, 118 => 118, 117 => 117, 116 => 116,
  21.         115 => 115, 114 => 114, 113 => 113, 112 => 112, 111 => 111,
  22.         110 => 110, 109 => 109, 108 => 108, 107 => 107, 106 => 106,
  23.         105 => 105, 104 => 104, 103 => 103, 102 => 102, 101 => 101,
  24.         100 => 100, 99 => 99, 98 => 98, 97 => 97, 96 => 96,
  25.         95 => 95, 94 => 94, 93 => 93, 92 => 92, 91 => 91,
  26.         90 => 90, 89 => 89, 88 => 88, 87 => 87, 86 => 86,
  27.         85 => 85, 84 => 84, 83 => 83, 82 => 82, 81 => 81,
  28.         80 => 80, 79 => 79, 78 => 78, 77 => 77, 76 => 76,
  29.         75 => 75, 74 => 74, 73 => 73, 72 => 72, 71 => 71,
  30.         70 => 70, 69 => 69, 68 => 68, 67 => 67, 66 => 66,
  31.         65 => 65, 64 => 64, 63 => 63, 62 => 62, 61 => 61,
  32.         60 => 60, 59 => 59, 58 => 58, 57 => 57, 56 => 56,
  33.         55 => 55, 54 => 54, 53 => 53, 52 => 52, 51 => 51,
  34.         50 => 50, 49 => 49, 48 => 48, 47 => 47, 46 => 46,
  35.         45 => 45, 44 => 44, 43 => 43, 42 => 42, 41 => 41,
  36.         40 => 40, 39 => 39, 38 => 38, 37 => 37, 36 => 36,
  37.         35 => 35, 34 => 34, 33 => 33, 32 => 32, 31 => 31,
  38.         30 => 30, 29 => 29, 28 => 28, 27 => 27, 26 => 26,
  39.         25 => 25, 24 => 24, 23 => 23, 22 => 22, 21 => 21,
  40.         20 => 20, 19 => 19, 18 => 18, 17 => 17, 16 => 16,
  41.         15 => 15, 14 => 14, 13 => 13, 12 => 12, 11 => 11,
  42.         10 => 10, 9 => 9, 8 => 8, 7 => 7, 6 => 6,
  43.         5 => 5, 4 => 4, 3 => 3, 2 => 2, 1 => 1    );
  44.     end z000132;
  45.