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

PROGRAM SORT3; 
VAR 
A:ARRAY[1..4] OF REAL; 
TEMP:REAL; 
I,J:INTEGER; 
BEGIN 
   
  FOR I:=1 TO 4 DO 
    READ(A[I]); 
  FOR I:=1 TO 4 DO 
    FOR J:=1 TO 4-I DO 
     IF A[J]