home *** CD-ROM | disk | FTP | other *** search
/ Programmer's ROM - The Computer Language Library / programmersrom.iso / ada / piwg / z000131.ada < prev    next >
Encoding:
Text File  |  1988-05-03  |  1.1 KB  |  25 lines
  1. procedure z000131 is
  2.     A: array ( 1..100 ) of integer;
  3.     begin
  4.     A := ( 100 => 100, 99 => 99, 98 => 98, 97 => 97, 96 => 96,
  5.         95 => 95, 94 => 94, 93 => 93, 92 => 92, 91 => 91,
  6.         90 => 90, 89 => 89, 88 => 88, 87 => 87, 86 => 86,
  7.         85 => 85, 84 => 84, 83 => 83, 82 => 82, 81 => 81,
  8.         80 => 80, 79 => 79, 78 => 78, 77 => 77, 76 => 76,
  9.         75 => 75, 74 => 74, 73 => 73, 72 => 72, 71 => 71,
  10.         70 => 70, 69 => 69, 68 => 68, 67 => 67, 66 => 66,
  11.         65 => 65, 64 => 64, 63 => 63, 62 => 62, 61 => 61,
  12.         60 => 60, 59 => 59, 58 => 58, 57 => 57, 56 => 56,
  13.         55 => 55, 54 => 54, 53 => 53, 52 => 52, 51 => 51,
  14.         50 => 50, 49 => 49, 48 => 48, 47 => 47, 46 => 46,
  15.         45 => 45, 44 => 44, 43 => 43, 42 => 42, 41 => 41,
  16.         40 => 40, 39 => 39, 38 => 38, 37 => 37, 36 => 36,
  17.         35 => 35, 34 => 34, 33 => 33, 32 => 32, 31 => 31,
  18.         30 => 30, 29 => 29, 28 => 28, 27 => 27, 26 => 26,
  19.         25 => 25, 24 => 24, 23 => 23, 22 => 22, 21 => 21,
  20.         20 => 20, 19 => 19, 18 => 18, 17 => 17, 16 => 16,
  21.         15 => 15, 14 => 14, 13 => 13, 12 => 12, 11 => 11,
  22.         10 => 10, 9 => 9, 8 => 8, 7 => 7, 6 => 6,
  23.         5 => 5, 4 => 4, 3 => 3, 2 => 2, 1 => 1    );
  24.     end z000131;
  25.