home *** CD-ROM | disk | FTP | other *** search
/ Programmer's ROM - The Computer Language Library / programmersrom.iso / ada / piwg / z000134.ada < prev    next >
Encoding:
Text File  |  1988-05-03  |  12.2 KB  |  205 lines
  1. procedure z000134 is
  2.     A: array ( 1..1000 ) of integer;
  3.     begin
  4.     A := ( 1000 => 1000, 999 => 999, 998 => 998, 997 => 997, 996 => 996,
  5.         995 => 995, 994 => 994, 993 => 993, 992 => 992, 991 => 991,
  6.         990 => 990, 989 => 989, 988 => 988, 987 => 987, 986 => 986,
  7.         985 => 985, 984 => 984, 983 => 983, 982 => 982, 981 => 981,
  8.         980 => 980, 979 => 979, 978 => 978, 977 => 977, 976 => 976,
  9.         975 => 975, 974 => 974, 973 => 973, 972 => 972, 971 => 971,
  10.         970 => 970, 969 => 969, 968 => 968, 967 => 967, 966 => 966,
  11.         965 => 965, 964 => 964, 963 => 963, 962 => 962, 961 => 961,
  12.         960 => 960, 959 => 959, 958 => 958, 957 => 957, 956 => 956,
  13.         955 => 955, 954 => 954, 953 => 953, 952 => 952, 951 => 951,
  14.         950 => 950, 949 => 949, 948 => 948, 947 => 947, 946 => 946,
  15.         945 => 945, 944 => 944, 943 => 943, 942 => 942, 941 => 941,
  16.         940 => 940, 939 => 939, 938 => 938, 937 => 937, 936 => 936,
  17.         935 => 935, 934 => 934, 933 => 933, 932 => 932, 931 => 931,
  18.         930 => 930, 929 => 929, 928 => 928, 927 => 927, 926 => 926,
  19.         925 => 925, 924 => 924, 923 => 923, 922 => 922, 921 => 921,
  20.         920 => 920, 919 => 919, 918 => 918, 917 => 917, 916 => 916,
  21.         915 => 915, 914 => 914, 913 => 913, 912 => 912, 911 => 911,
  22.         910 => 910, 909 => 909, 908 => 908, 907 => 907, 906 => 906,
  23.         905 => 905, 904 => 904, 903 => 903, 902 => 902, 901 => 901,
  24.         900 => 900, 899 => 899, 898 => 898, 897 => 897, 896 => 896,
  25.         895 => 895, 894 => 894, 893 => 893, 892 => 892, 891 => 891,
  26.         890 => 890, 889 => 889, 888 => 888, 887 => 887, 886 => 886,
  27.         885 => 885, 884 => 884, 883 => 883, 882 => 882, 881 => 881,
  28.         880 => 880, 879 => 879, 878 => 878, 877 => 877, 876 => 876,
  29.         875 => 875, 874 => 874, 873 => 873, 872 => 872, 871 => 871,
  30.         870 => 870, 869 => 869, 868 => 868, 867 => 867, 866 => 866,
  31.         865 => 865, 864 => 864, 863 => 863, 862 => 862, 861 => 861,
  32.         860 => 860, 859 => 859, 858 => 858, 857 => 857, 856 => 856,
  33.         855 => 855, 854 => 854, 853 => 853, 852 => 852, 851 => 851,
  34.         850 => 850, 849 => 849, 848 => 848, 847 => 847, 846 => 846,
  35.         845 => 845, 844 => 844, 843 => 843, 842 => 842, 841 => 841,
  36.         840 => 840, 839 => 839, 838 => 838, 837 => 837, 836 => 836,
  37.         835 => 835, 834 => 834, 833 => 833, 832 => 832, 831 => 831,
  38.         830 => 830, 829 => 829, 828 => 828, 827 => 827, 826 => 826,
  39.         825 => 825, 824 => 824, 823 => 823, 822 => 822, 821 => 821,
  40.         820 => 820, 819 => 819, 818 => 818, 817 => 817, 816 => 816,
  41.         815 => 815, 814 => 814, 813 => 813, 812 => 812, 811 => 811,
  42.         810 => 810, 809 => 809, 808 => 808, 807 => 807, 806 => 806,
  43.         805 => 805, 804 => 804, 803 => 803, 802 => 802, 801 => 801,
  44.         800 => 800, 799 => 799, 798 => 798, 797 => 797, 796 => 796,
  45.         795 => 795, 794 => 794, 793 => 793, 792 => 792, 791 => 791,
  46.         790 => 790, 789 => 789, 788 => 788, 787 => 787, 786 => 786,
  47.         785 => 785, 784 => 784, 783 => 783, 782 => 782, 781 => 781,
  48.         780 => 780, 779 => 779, 778 => 778, 777 => 777, 776 => 776,
  49.         775 => 775, 774 => 774, 773 => 773, 772 => 772, 771 => 771,
  50.         770 => 770, 769 => 769, 768 => 768, 767 => 767, 766 => 766,
  51.         765 => 765, 764 => 764, 763 => 763, 762 => 762, 761 => 761,
  52.         760 => 760, 759 => 759, 758 => 758, 757 => 757, 756 => 756,
  53.         755 => 755, 754 => 754, 753 => 753, 752 => 752, 751 => 751,
  54.         750 => 750, 749 => 749, 748 => 748, 747 => 747, 746 => 746,
  55.         745 => 745, 744 => 744, 743 => 743, 742 => 742, 741 => 741,
  56.         740 => 740, 739 => 739, 738 => 738, 737 => 737, 736 => 736,
  57.         735 => 735, 734 => 734, 733 => 733, 732 => 732, 731 => 731,
  58.         730 => 730, 729 => 729, 728 => 728, 727 => 727, 726 => 726,
  59.         725 => 725, 724 => 724, 723 => 723, 722 => 722, 721 => 721,
  60.         720 => 720, 719 => 719, 718 => 718, 717 => 717, 716 => 716,
  61.         715 => 715, 714 => 714, 713 => 713, 712 => 712, 711 => 711,
  62.         710 => 710, 709 => 709, 708 => 708, 707 => 707, 706 => 706,
  63.         705 => 705, 704 => 704, 703 => 703, 702 => 702, 701 => 701,
  64.         700 => 700, 699 => 699, 698 => 698, 697 => 697, 696 => 696,
  65.         695 => 695, 694 => 694, 693 => 693, 692 => 692, 691 => 691,
  66.         690 => 690, 689 => 689, 688 => 688, 687 => 687, 686 => 686,
  67.         685 => 685, 684 => 684, 683 => 683, 682 => 682, 681 => 681,
  68.         680 => 680, 679 => 679, 678 => 678, 677 => 677, 676 => 676,
  69.         675 => 675, 674 => 674, 673 => 673, 672 => 672, 671 => 671,
  70.         670 => 670, 669 => 669, 668 => 668, 667 => 667, 666 => 666,
  71.         665 => 665, 664 => 664, 663 => 663, 662 => 662, 661 => 661,
  72.         660 => 660, 659 => 659, 658 => 658, 657 => 657, 656 => 656,
  73.         655 => 655, 654 => 654, 653 => 653, 652 => 652, 651 => 651,
  74.         650 => 650, 649 => 649, 648 => 648, 647 => 647, 646 => 646,
  75.         645 => 645, 644 => 644, 643 => 643, 642 => 642, 641 => 641,
  76.         640 => 640, 639 => 639, 638 => 638, 637 => 637, 636 => 636,
  77.         635 => 635, 634 => 634, 633 => 633, 632 => 632, 631 => 631,
  78.         630 => 630, 629 => 629, 628 => 628, 627 => 627, 626 => 626,
  79.         625 => 625, 624 => 624, 623 => 623, 622 => 622, 621 => 621,
  80.         620 => 620, 619 => 619, 618 => 618, 617 => 617, 616 => 616,
  81.         615 => 615, 614 => 614, 613 => 613, 612 => 612, 611 => 611,
  82.         610 => 610, 609 => 609, 608 => 608, 607 => 607, 606 => 606,
  83.         605 => 605, 604 => 604, 603 => 603, 602 => 602, 601 => 601,
  84.         600 => 600, 599 => 599, 598 => 598, 597 => 597, 596 => 596,
  85.         595 => 595, 594 => 594, 593 => 593, 592 => 592, 591 => 591,
  86.         590 => 590, 589 => 589, 588 => 588, 587 => 587, 586 => 586,
  87.         585 => 585, 584 => 584, 583 => 583, 582 => 582, 581 => 581,
  88.         580 => 580, 579 => 579, 578 => 578, 577 => 577, 576 => 576,
  89.         575 => 575, 574 => 574, 573 => 573, 572 => 572, 571 => 571,
  90.         570 => 570, 569 => 569, 568 => 568, 567 => 567, 566 => 566,
  91.         565 => 565, 564 => 564, 563 => 563, 562 => 562, 561 => 561,
  92.         560 => 560, 559 => 559, 558 => 558, 557 => 557, 556 => 556,
  93.         555 => 555, 554 => 554, 553 => 553, 552 => 552, 551 => 551,
  94.         550 => 550, 549 => 549, 548 => 548, 547 => 547, 546 => 546,
  95.         545 => 545, 544 => 544, 543 => 543, 542 => 542, 541 => 541,
  96.         540 => 540, 539 => 539, 538 => 538, 537 => 537, 536 => 536,
  97.         535 => 535, 534 => 534, 533 => 533, 532 => 532, 531 => 531,
  98.         530 => 530, 529 => 529, 528 => 528, 527 => 527, 526 => 526,
  99.         525 => 525, 524 => 524, 523 => 523, 522 => 522, 521 => 521,
  100.         520 => 520, 519 => 519, 518 => 518, 517 => 517, 516 => 516,
  101.         515 => 515, 514 => 514, 513 => 513, 512 => 512, 511 => 511,
  102.         510 => 510, 509 => 509, 508 => 508, 507 => 507, 506 => 506,
  103.         505 => 505, 504 => 504, 503 => 503, 502 => 502, 501 => 501,
  104.         500 => 500, 499 => 499, 498 => 498, 497 => 497, 496 => 496,
  105.         495 => 495, 494 => 494, 493 => 493, 492 => 492, 491 => 491,
  106.         490 => 490, 489 => 489, 488 => 488, 487 => 487, 486 => 486,
  107.         485 => 485, 484 => 484, 483 => 483, 482 => 482, 481 => 481,
  108.         480 => 480, 479 => 479, 478 => 478, 477 => 477, 476 => 476,
  109.         475 => 475, 474 => 474, 473 => 473, 472 => 472, 471 => 471,
  110.         470 => 470, 469 => 469, 468 => 468, 467 => 467, 466 => 466,
  111.         465 => 465, 464 => 464, 463 => 463, 462 => 462, 461 => 461,
  112.         460 => 460, 459 => 459, 458 => 458, 457 => 457, 456 => 456,
  113.         455 => 455, 454 => 454, 453 => 453, 452 => 452, 451 => 451,
  114.         450 => 450, 449 => 449, 448 => 448, 447 => 447, 446 => 446,
  115.         445 => 445, 444 => 444, 443 => 443, 442 => 442, 441 => 441,
  116.         440 => 440, 439 => 439, 438 => 438, 437 => 437, 436 => 436,
  117.         435 => 435, 434 => 434, 433 => 433, 432 => 432, 431 => 431,
  118.         430 => 430, 429 => 429, 428 => 428, 427 => 427, 426 => 426,
  119.         425 => 425, 424 => 424, 423 => 423, 422 => 422, 421 => 421,
  120.         420 => 420, 419 => 419, 418 => 418, 417 => 417, 416 => 416,
  121.         415 => 415, 414 => 414, 413 => 413, 412 => 412, 411 => 411,
  122.         410 => 410, 409 => 409, 408 => 408, 407 => 407, 406 => 406,
  123.         405 => 405, 404 => 404, 403 => 403, 402 => 402, 401 => 401,
  124.         400 => 400, 399 => 399, 398 => 398, 397 => 397, 396 => 396,
  125.         395 => 395, 394 => 394, 393 => 393, 392 => 392, 391 => 391,
  126.         390 => 390, 389 => 389, 388 => 388, 387 => 387, 386 => 386,
  127.         385 => 385, 384 => 384, 383 => 383, 382 => 382, 381 => 381,
  128.         380 => 380, 379 => 379, 378 => 378, 377 => 377, 376 => 376,
  129.         375 => 375, 374 => 374, 373 => 373, 372 => 372, 371 => 371,
  130.         370 => 370, 369 => 369, 368 => 368, 367 => 367, 366 => 366,
  131.         365 => 365, 364 => 364, 363 => 363, 362 => 362, 361 => 361,
  132.         360 => 360, 359 => 359, 358 => 358, 357 => 357, 356 => 356,
  133.         355 => 355, 354 => 354, 353 => 353, 352 => 352, 351 => 351,
  134.         350 => 350, 349 => 349, 348 => 348, 347 => 347, 346 => 346,
  135.         345 => 345, 344 => 344, 343 => 343, 342 => 342, 341 => 341,
  136.         340 => 340, 339 => 339, 338 => 338, 337 => 337, 336 => 336,
  137.         335 => 335, 334 => 334, 333 => 333, 332 => 332, 331 => 331,
  138.         330 => 330, 329 => 329, 328 => 328, 327 => 327, 326 => 326,
  139.         325 => 325, 324 => 324, 323 => 323, 322 => 322, 321 => 321,
  140.         320 => 320, 319 => 319, 318 => 318, 317 => 317, 316 => 316,
  141.         315 => 315, 314 => 314, 313 => 313, 312 => 312, 311 => 311,
  142.         310 => 310, 309 => 309, 308 => 308, 307 => 307, 306 => 306,
  143.         305 => 305, 304 => 304, 303 => 303, 302 => 302, 301 => 301,
  144.         300 => 300, 299 => 299, 298 => 298, 297 => 297, 296 => 296,
  145.         295 => 295, 294 => 294, 293 => 293, 292 => 292, 291 => 291,
  146.         290 => 290, 289 => 289, 288 => 288, 287 => 287, 286 => 286,
  147.         285 => 285, 284 => 284, 283 => 283, 282 => 282, 281 => 281,
  148.         280 => 280, 279 => 279, 278 => 278, 277 => 277, 276 => 276,
  149.         275 => 275, 274 => 274, 273 => 273, 272 => 272, 271 => 271,
  150.         270 => 270, 269 => 269, 268 => 268, 267 => 267, 266 => 266,
  151.         265 => 265, 264 => 264, 263 => 263, 262 => 262, 261 => 261,
  152.         260 => 260, 259 => 259, 258 => 258, 257 => 257, 256 => 256,
  153.         255 => 255, 254 => 254, 253 => 253, 252 => 252, 251 => 251,
  154.         250 => 250, 249 => 249, 248 => 248, 247 => 247, 246 => 246,
  155.         245 => 245, 244 => 244, 243 => 243, 242 => 242, 241 => 241,
  156.         240 => 240, 239 => 239, 238 => 238, 237 => 237, 236 => 236,
  157.         235 => 235, 234 => 234, 233 => 233, 232 => 232, 231 => 231,
  158.         230 => 230, 229 => 229, 228 => 228, 227 => 227, 226 => 226,
  159.         225 => 225, 224 => 224, 223 => 223, 222 => 222, 221 => 221,
  160.         220 => 220, 219 => 219, 218 => 218, 217 => 217, 216 => 216,
  161.         215 => 215, 214 => 214, 213 => 213, 212 => 212, 211 => 211,
  162.         210 => 210, 209 => 209, 208 => 208, 207 => 207, 206 => 206,
  163.         205 => 205, 204 => 204, 203 => 203, 202 => 202, 201 => 201,
  164.         200 => 200, 199 => 199, 198 => 198, 197 => 197, 196 => 196,
  165.         195 => 195, 194 => 194, 193 => 193, 192 => 192, 191 => 191,
  166.         190 => 190, 189 => 189, 188 => 188, 187 => 187, 186 => 186,
  167.         185 => 185, 184 => 184, 183 => 183, 182 => 182, 181 => 181,
  168.         180 => 180, 179 => 179, 178 => 178, 177 => 177, 176 => 176,
  169.         175 => 175, 174 => 174, 173 => 173, 172 => 172, 171 => 171,
  170.         170 => 170, 169 => 169, 168 => 168, 167 => 167, 166 => 166,
  171.         165 => 165, 164 => 164, 163 => 163, 162 => 162, 161 => 161,
  172.         160 => 160, 159 => 159, 158 => 158, 157 => 157, 156 => 156,
  173.         155 => 155, 154 => 154, 153 => 153, 152 => 152, 151 => 151,
  174.         150 => 150, 149 => 149, 148 => 148, 147 => 147, 146 => 146,
  175.         145 => 145, 144 => 144, 143 => 143, 142 => 142, 141 => 141,
  176.         140 => 140, 139 => 139, 138 => 138, 137 => 137, 136 => 136,
  177.         135 => 135, 134 => 134, 133 => 133, 132 => 132, 131 => 131,
  178.         130 => 130, 129 => 129, 128 => 128, 127 => 127, 126 => 126,
  179.         125 => 125, 124 => 124, 123 => 123, 122 => 122, 121 => 121,
  180.         120 => 120, 119 => 119, 118 => 118, 117 => 117, 116 => 116,
  181.         115 => 115, 114 => 114, 113 => 113, 112 => 112, 111 => 111,
  182.         110 => 110, 109 => 109, 108 => 108, 107 => 107, 106 => 106,
  183.         105 => 105, 104 => 104, 103 => 103, 102 => 102, 101 => 101,
  184.         100 => 100, 99 => 99, 98 => 98, 97 => 97, 96 => 96,
  185.         95 => 95, 94 => 94, 93 => 93, 92 => 92, 91 => 91,
  186.         90 => 90, 89 => 89, 88 => 88, 87 => 87, 86 => 86,
  187.         85 => 85, 84 => 84, 83 => 83, 82 => 82, 81 => 81,
  188.         80 => 80, 79 => 79, 78 => 78, 77 => 77, 76 => 76,
  189.         75 => 75, 74 => 74, 73 => 73, 72 => 72, 71 => 71,
  190.         70 => 70, 69 => 69, 68 => 68, 67 => 67, 66 => 66,
  191.         65 => 65, 64 => 64, 63 => 63, 62 => 62, 61 => 61,
  192.         60 => 60, 59 => 59, 58 => 58, 57 => 57, 56 => 56,
  193.         55 => 55, 54 => 54, 53 => 53, 52 => 52, 51 => 51,
  194.         50 => 50, 49 => 49, 48 => 48, 47 => 47, 46 => 46,
  195.         45 => 45, 44 => 44, 43 => 43, 42 => 42, 41 => 41,
  196.         40 => 40, 39 => 39, 38 => 38, 37 => 37, 36 => 36,
  197.         35 => 35, 34 => 34, 33 => 33, 32 => 32, 31 => 31,
  198.         30 => 30, 29 => 29, 28 => 28, 27 => 27, 26 => 26,
  199.         25 => 25, 24 => 24, 23 => 23, 22 => 22, 21 => 21,
  200.         20 => 20, 19 => 19, 18 => 18, 17 => 17, 16 => 16,
  201.         15 => 15, 14 => 14, 13 => 13, 12 => 12, 11 => 11,
  202.         10 => 10, 9 => 9, 8 => 8, 7 => 7, 6 => 6,
  203.         5 => 5, 4 => 4, 3 => 3, 2 => 2, 1 => 1    );
  204.     end z000134;
  205.