1 PROGRAM 1 1 39 P 1 9 34 = 1 10 2 BEGIN 2 1 4 VAR 3 3 39 RAND 3 7 31 : 3 11 5 INTEGER 3 12 28 ; 3 19 4 VAR 4 3 39 N 4 7 31 : 4 8 5 INTEGER 4 9 28 ; 4 16 4 VAR 5 3 39 A 5 7 31 : 5 8 8 ARRAY 5 9 35 [ 5 14 37 0 5 15 31 : 5 16 37 1000 5 17 36 ] 5 21 9 OF 5 23 5 INTEGER 5 26 28 ; 5 33 4 VAR 6 3 39 MODERG 6 7 31 : 6 13 5 INTEGER 6 14 28 ; 6 21 4 VAR 7 3 39 DIVERG 7 7 31 : 7 13 5 INTEGER 7 14 28 ; 7 21 4 VAR 8 3 39 LAENGE 8 7 31 : 8 13 5 INTEGER 8 14 28 ; 8 21 10 PROC 10 3 39 MOD100 10 8 32 ( 10 14 39 N 10 15 31 : 10 16 5 INTEGER 10 17 33 ) 10 24 34 = 10 25 2 BEGIN 10 26 39 MODERG 11 28 31 : 11 34 34 = 11 35 39 N 11 36 28 ; 11 37 13 WHILE 12 28 32 ( 12 34 39 MODERG 12 35 27 > 12 41 37 0 12 42 33 ) 12 43 14 DO 12 45 39 MODERG 12 48 31 : 12 54 34 = 12 55 39 MODERG 12 56 26 - 12 62 37 100 12 63 15 OD 12 67 28 ; 12 69 39 MODERG 13 29 31 : 13 35 34 = 13 36 39 MODERG 13 37 26 + 13 43 37 100 13 44 3 END 14 26 28 ; 14 29 10 PROC 16 3 39 DIV2 16 8 32 ( 16 12 39 N 16 13 31 : 16 14 5 INTEGER 16 15 33 ) 16 22 34 = 16 23 2 BEGIN 16 24 39 DIVERG 17 26 31 : 17 32 34 = 17 33 37 1 17 34 28 ; 17 35 13 WHILE 17 36 32 ( 17 41 39 DIVERG 17 42 26 * 17 48 37 2 17 49 27 <= 17 50 39 N 17 52 33 ) 17 53 14 DO 17 55 39 DIVERG 17 58 31 : 17 64 34 = 17 65 39 DIVERG 17 66 26 + 17 72 37 1 17 73 15 OD 17 75 28 ; 17 77 39 DIVERG 18 26 31 : 18 32 34 = 18 33 39 DIVERG 18 34 26 - 18 40 37 1 18 41 3 END 19 24 28 ; 19 27 10 PROC 21 3 39 QUICKSORT 21 8 32 ( 21 17 33 ) 21 18 34 = 21 19 2 BEGIN 21 20 10 PROC 22 3 39 SORT 22 8 32 ( 22 12 39 L 22 13 31 : 22 14 5 INTEGER 22 15 29 , 22 22 39 R 22 23 31 : 22 24 5 INTEGER 22 25 33 ) 22 32 34 = 22 33 2 BEGIN 23 3 4 VAR 24 4 39 I 24 8 31 : 24 9 5 INTEGER 24 10 28 ; 24 17 4 VAR 24 18 39 J 24 22 31 : 24 23 5 INTEGER 24 24 28 ; 24 31 4 VAR 25 4 39 X 25 8 31 : 25 9 5 INTEGER 25 10 28 ; 25 17 4 VAR 25 18 39 W 25 22 31 : 25 23 5 INTEGER 25 24 28 ; 25 31 39 I 26 4 31 : 26 5 34 = 26 6 39 L 26 7 28 ; 26 8 39 J 26 9 31 : 26 10 34 = 26 11 39 R 26 12 28 ; 26 13 39 DIV2 27 4 32 ( 27 8 39 L 27 9 26 + 27 10 39 R 27 11 33 ) 27 12 28 ; 27 13 39 X 28 4 31 : 28 5 34 = 28 6 39 A 28 7 35 [ 28 8 39 DIVERG 28 9 36 ] 28 15 28 ; 28 16 13 WHILE 29 4 32 ( 29 10 39 I 29 11 27 <= 29 12 39 J 29 14 33 ) 29 15 14 DO 29 17 2 BEGIN 30 6 13 WHILE 31 9 32 ( 31 15 39 A 31 16 35 [ 31 17 39 I 31 18 36 ] 31 19 27 < 31 20 39 X 31 21 33 ) 31 22 14 DO 31 24 39 I 31 27 31 : 31 28 34 = 31 29 39 I 31 30 26 + 31 31 37 1 31 32 15 OD 31 34 28 ; 31 36 13 WHILE 32 9 32 ( 32 15 39 X 32 16 27 < 32 17 39 A 32 18 35 [ 32 19 39 J 32 20 36 ] 32 21 33 ) 32 22 14 DO 32 24 39 J 32 27 31 : 32 28 34 = 32 29 39 J 32 30 26 - 32 31 37 1 32 32 15 OD 32 34 28 ; 32 36 18 IF 33 9 32 ( 33 12 39 I 33 13 27 <= 33 14 39 J 33 16 33 ) 33 17 19 THEN 33 19 2 BEGIN 34 9 39 W 34 15 31 : 34 16 34 = 34 17 39 A 34 19 35 [ 34 20 39 I 34 21 36 ] 34 22 28 ; 34 23 39 A 34 24 35 [ 34 25 39 I 34 26 36 ] 34 27 31 : 34 28 34 = 34 29 39 A 34 30 35 [ 34 31 39 J 34 32 36 ] 34 33 28 ; 34 34 39 A 34 35 35 [ 34 36 39 J 34 37 36 ] 34 38 31 : 34 39 34 = 34 40 39 W 34 41 28 ; 34 42 39 I 35 11 31 : 35 12 34 = 35 13 39 I 35 14 26 + 35 15 37 1 35 16 28 ; 35 17 39 J 35 18 31 : 35 19 34 = 35 20 39 J 35 21 26 - 35 22 37 1 35 23 3 END 36 9 20 ELSE 37 9 39 X 37 14 31 : 37 15 34 = 37 16 39 X 37 17 21 FI 37 19 3 END 38 7 15 OD 38 11 28 ; 38 13 18 IF 39 3 32 ( 39 6 39 L 39 7 27 < 39 8 39 J 39 9 33 ) 39 10 19 THEN 39 12 39 SORT 39 17 32 ( 39 21 39 L 39 22 29 , 39 23 39 J 39 24 33 ) 39 25 20 ELSE 39 27 39 X 39 32 31 : 39 33 34 = 39 34 39 X 39 35 21 FI 39 37 28 ; 39 39 18 IF 40 5 32 ( 40 8 39 I 40 9 27 < 40 10 39 R 40 11 33 ) 40 12 19 THEN 40 14 39 SORT 40 19 32 ( 40 23 39 I 40 24 29 , 40 25 39 R 40 26 33 ) 40 27 20 ELSE 40 29 39 X 40 34 31 : 40 35 34 = 40 36 39 X 40 37 21 FI 40 39 3 END 41 3 28 ; 41 6 39 SORT 43 3 32 ( 43 7 37 1 43 8 29 , 43 9 39 LAENGE 43 10 33 ) 43 16 3 END 44 3 28 ; 44 6 39 RAND 46 3 31 : 46 7 34 = 46 8 37 48 46 9 28 ; 46 11 39 N 47 3 31 : 47 4 34 = 47 5 37 1 47 6 28 ; 47 7 39 LAENGE 48 3 31 : 48 9 34 = 48 10 37 5 48 11 28 ; 48 12 13 WHILE 49 3 39 N 49 9 27 <= 49 10 39 LAENGE 49 12 14 DO 50 4 2 BEGIN 51 2 39 A 51 8 35 [ 51 9 39 N 51 10 36 ] 51 11 31 : 51 12 34 = 51 13 39 RAND 51 14 28 ; 51 18 39 MOD100 51 19 32 ( 51 25 39 RAND 51 26 26 * 51 30 37 2436 51 31 33 ) 51 35 28 ; 51 36 39 RAND 51 37 31 : 51 41 34 = 51 42 39 MODERG 51 43 28 ; 51 49 39 N 51 50 31 : 51 51 34 = 51 52 39 N 51 53 26 + 51 54 37 1 51 55 3 END 51 57 15 OD 53 1 28 ; 53 3 39 N 54 3 31 : 54 4 34 = 54 5 37 1 54 6 28 ; 54 7 13 WHILE 55 4 32 ( 55 10 39 N 55 11 27 <= 55 12 39 LAENGE 55 14 33 ) 55 20 14 DO 56 4 2 BEGIN 56 7 23 OUT 56 13 32 ( 56 16 39 A 56 17 35 [ 56 18 39 N 56 19 36 ] 56 20 33 ) 56 21 28 ; 56 22 39 N 56 23 31 : 56 24 34 = 56 25 39 N 56 26 26 + 56 27 37 1 56 28 3 END 56 30 15 OD 56 34 28 ; 56 36 39 QUICKSORT 58 2 32 ( 58 11 33 ) 58 12 28 ; 58 13 39 N 59 2 31 : 59 3 34 = 59 4 37 1 59 5 28 ; 59 6 13 WHILE 60 4 32 ( 60 10 39 N 60 11 27 <= 60 12 39 LAENGE 60 14 33 ) 60 20 14 DO 61 4 2 BEGIN 61 7 23 OUT 61 13 32 ( 61 16 39 A 61 17 35 [ 61 18 39 N 61 19 36 ] 61 20 33 ) 61 21 28 ; 61 22 39 N 61 23 31 : 61 24 34 = 61 25 39 N 61 26 26 + 61 27 37 1 61 28 3 END 61 30 15 OD 61 34 3 END 62 1 30 . 62 4