www.pudn.com > kechengsheji.rar > SORT.COD

=== COMPILE PL0 === 
  0 PROGRAM SORT3;  
  0 VAR  
  1 A:ARRAY[1..4] OF REAL;  
  1 TEMP:REAL;  
  1 I,J:INTEGER;  
  1 BEGIN  
  2     
  2   FOR I:=1 TO 4 DO  
  8     READ(A[I]);  
 15   FOR I:=1 TO 4 DO  
 21     FOR J:=1 TO 4-I DO  
 29      IF A[J]