home *** CD-ROM | disk | FTP | other *** search
/ Programmer's ROM - The Computer Language Library / programmersrom.iso / ada / piwg / z000133.ada < prev    next >
Encoding:
Text File  |  1988-05-03  |  6.0 KB  |  105 lines
  1. procedure z000133 is
  2.     A: array ( 1..500 ) of integer;
  3.     begin
  4.     A := (  500 => 500, 499 => 499, 498 => 498, 497 => 497, 496 => 496,
  5.         495 => 495, 494 => 494, 493 => 493, 492 => 492, 491 => 491,
  6.         490 => 490, 489 => 489, 488 => 488, 487 => 487, 486 => 486,
  7.         485 => 485, 484 => 484, 483 => 483, 482 => 482, 481 => 481,
  8.         480 => 480, 479 => 479, 478 => 478, 477 => 477, 476 => 476,
  9.         475 => 475, 474 => 474, 473 => 473, 472 => 472, 471 => 471,
  10.         470 => 470, 469 => 469, 468 => 468, 467 => 467, 466 => 466,
  11.         465 => 465, 464 => 464, 463 => 463, 462 => 462, 461 => 461,
  12.         460 => 460, 459 => 459, 458 => 458, 457 => 457, 456 => 456,
  13.         455 => 455, 454 => 454, 453 => 453, 452 => 452, 451 => 451,
  14.         450 => 450, 449 => 449, 448 => 448, 447 => 447, 446 => 446,
  15.         445 => 445, 444 => 444, 443 => 443, 442 => 442, 441 => 441,
  16.         440 => 440, 439 => 439, 438 => 438, 437 => 437, 436 => 436,
  17.         435 => 435, 434 => 434, 433 => 433, 432 => 432, 431 => 431,
  18.         430 => 430, 429 => 429, 428 => 428, 427 => 427, 426 => 426,
  19.         425 => 425, 424 => 424, 423 => 423, 422 => 422, 421 => 421,
  20.         420 => 420, 419 => 419, 418 => 418, 417 => 417, 416 => 416,
  21.         415 => 415, 414 => 414, 413 => 413, 412 => 412, 411 => 411,
  22.         410 => 410, 409 => 409, 408 => 408, 407 => 407, 406 => 406,
  23.         405 => 405, 404 => 404, 403 => 403, 402 => 402, 401 => 401,
  24.         400 => 400, 399 => 399, 398 => 398, 397 => 397, 396 => 396,
  25.         395 => 395, 394 => 394, 393 => 393, 392 => 392, 391 => 391,
  26.         390 => 390, 389 => 389, 388 => 388, 387 => 387, 386 => 386,
  27.         385 => 385, 384 => 384, 383 => 383, 382 => 382, 381 => 381,
  28.         380 => 380, 379 => 379, 378 => 378, 377 => 377, 376 => 376,
  29.         375 => 375, 374 => 374, 373 => 373, 372 => 372, 371 => 371,
  30.         370 => 370, 369 => 369, 368 => 368, 367 => 367, 366 => 366,
  31.         365 => 365, 364 => 364, 363 => 363, 362 => 362, 361 => 361,
  32.         360 => 360, 359 => 359, 358 => 358, 357 => 357, 356 => 356,
  33.         355 => 355, 354 => 354, 353 => 353, 352 => 352, 351 => 351,
  34.         350 => 350, 349 => 349, 348 => 348, 347 => 347, 346 => 346,
  35.         345 => 345, 344 => 344, 343 => 343, 342 => 342, 341 => 341,
  36.         340 => 340, 339 => 339, 338 => 338, 337 => 337, 336 => 336,
  37.         335 => 335, 334 => 334, 333 => 333, 332 => 332, 331 => 331,
  38.         330 => 330, 329 => 329, 328 => 328, 327 => 327, 326 => 326,
  39.         325 => 325, 324 => 324, 323 => 323, 322 => 322, 321 => 321,
  40.         320 => 320, 319 => 319, 318 => 318, 317 => 317, 316 => 316,
  41.         315 => 315, 314 => 314, 313 => 313, 312 => 312, 311 => 311,
  42.         310 => 310, 309 => 309, 308 => 308, 307 => 307, 306 => 306,
  43.         305 => 305, 304 => 304, 303 => 303, 302 => 302, 301 => 301,
  44.         300 => 300, 299 => 299, 298 => 298, 297 => 297, 296 => 296,
  45.         295 => 295, 294 => 294, 293 => 293, 292 => 292, 291 => 291,
  46.         290 => 290, 289 => 289, 288 => 288, 287 => 287, 286 => 286,
  47.         285 => 285, 284 => 284, 283 => 283, 282 => 282, 281 => 281,
  48.         280 => 280, 279 => 279, 278 => 278, 277 => 277, 276 => 276,
  49.         275 => 275, 274 => 274, 273 => 273, 272 => 272, 271 => 271,
  50.         270 => 270, 269 => 269, 268 => 268, 267 => 267, 266 => 266,
  51.         265 => 265, 264 => 264, 263 => 263, 262 => 262, 261 => 261,
  52.         260 => 260, 259 => 259, 258 => 258, 257 => 257, 256 => 256,
  53.         255 => 255, 254 => 254, 253 => 253, 252 => 252, 251 => 251,
  54.         250 => 250, 249 => 249, 248 => 248, 247 => 247, 246 => 246,
  55.         245 => 245, 244 => 244, 243 => 243, 242 => 242, 241 => 241,
  56.         240 => 240, 239 => 239, 238 => 238, 237 => 237, 236 => 236,
  57.         235 => 235, 234 => 234, 233 => 233, 232 => 232, 231 => 231,
  58.         230 => 230, 229 => 229, 228 => 228, 227 => 227, 226 => 226,
  59.         225 => 225, 224 => 224, 223 => 223, 222 => 222, 221 => 221,
  60.         220 => 220, 219 => 219, 218 => 218, 217 => 217, 216 => 216,
  61.         215 => 215, 214 => 214, 213 => 213, 212 => 212, 211 => 211,
  62.         210 => 210, 209 => 209, 208 => 208, 207 => 207, 206 => 206,
  63.         205 => 205, 204 => 204, 203 => 203, 202 => 202, 201 => 201,
  64.         200 => 200, 199 => 199, 198 => 198, 197 => 197, 196 => 196,
  65.         195 => 195, 194 => 194, 193 => 193, 192 => 192, 191 => 191,
  66.         190 => 190, 189 => 189, 188 => 188, 187 => 187, 186 => 186,
  67.         185 => 185, 184 => 184, 183 => 183, 182 => 182, 181 => 181,
  68.         180 => 180, 179 => 179, 178 => 178, 177 => 177, 176 => 176,
  69.         175 => 175, 174 => 174, 173 => 173, 172 => 172, 171 => 171,
  70.         170 => 170, 169 => 169, 168 => 168, 167 => 167, 166 => 166,
  71.         165 => 165, 164 => 164, 163 => 163, 162 => 162, 161 => 161,
  72.         160 => 160, 159 => 159, 158 => 158, 157 => 157, 156 => 156,
  73.         155 => 155, 154 => 154, 153 => 153, 152 => 152, 151 => 151,
  74.         150 => 150, 149 => 149, 148 => 148, 147 => 147, 146 => 146,
  75.         145 => 145, 144 => 144, 143 => 143, 142 => 142, 141 => 141,
  76.         140 => 140, 139 => 139, 138 => 138, 137 => 137, 136 => 136,
  77.         135 => 135, 134 => 134, 133 => 133, 132 => 132, 131 => 131,
  78.         130 => 130, 129 => 129, 128 => 128, 127 => 127, 126 => 126,
  79.         125 => 125, 124 => 124, 123 => 123, 122 => 122, 121 => 121,
  80.         120 => 120, 119 => 119, 118 => 118, 117 => 117, 116 => 116,
  81.         115 => 115, 114 => 114, 113 => 113, 112 => 112, 111 => 111,
  82.         110 => 110, 109 => 109, 108 => 108, 107 => 107, 106 => 106,
  83.         105 => 105, 104 => 104, 103 => 103, 102 => 102, 101 => 101,
  84.         100 => 100, 99 => 99, 98 => 98, 97 => 97, 96 => 96,
  85.         95 => 95, 94 => 94, 93 => 93, 92 => 92, 91 => 91,
  86.         90 => 90, 89 => 89, 88 => 88, 87 => 87, 86 => 86,
  87.         85 => 85, 84 => 84, 83 => 83, 82 => 82, 81 => 81,
  88.         80 => 80, 79 => 79, 78 => 78, 77 => 77, 76 => 76,
  89.         75 => 75, 74 => 74, 73 => 73, 72 => 72, 71 => 71,
  90.         70 => 70, 69 => 69, 68 => 68, 67 => 67, 66 => 66,
  91.         65 => 65, 64 => 64, 63 => 63, 62 => 62, 61 => 61,
  92.         60 => 60, 59 => 59, 58 => 58, 57 => 57, 56 => 56,
  93.         55 => 55, 54 => 54, 53 => 53, 52 => 52, 51 => 51,
  94.         50 => 50, 49 => 49, 48 => 48, 47 => 47, 46 => 46,
  95.         45 => 45, 44 => 44, 43 => 43, 42 => 42, 41 => 41,
  96.         40 => 40, 39 => 39, 38 => 38, 37 => 37, 36 => 36,
  97.         35 => 35, 34 => 34, 33 => 33, 32 => 32, 31 => 31,
  98.         30 => 30, 29 => 29, 28 => 28, 27 => 27, 26 => 26,
  99.         25 => 25, 24 => 24, 23 => 23, 22 => 22, 21 => 21,
  100.         20 => 20, 19 => 19, 18 => 18, 17 => 17, 16 => 16,
  101.         15 => 15, 14 => 14, 13 => 13, 12 => 12, 11 => 11,
  102.         10 => 10, 9 => 9, 8 => 8, 7 => 7, 6 => 6,
  103.         5 => 5, 4 => 4, 3 => 3, 2 => 2, 1 => 1    );
  104.     end z000133;
  105.