CONST
 A:ARRAY[1..4,1..3] of REAL=((-0.2, 0.2, 4),(3.8, 0.3, -2.1),
                                          (2.5, 7, 1),(4.1, 2.5, 3.2));
VAR 
 Number_of_Negative_Elements:ARRAY[1..3] of BYTE;
 R:REAL;
 i,j:INTEGER;
BEGIN
  FOR i:=1 TO 4 DO
   BEGIN
     FOR j:=1 TO 3 DO
       Write(A[i,j]:6:1);
     WriteLn;
   END;
 WriteLn;
 FOR j:=1 TO 3 DO
  BEGIN
   Number_of_Negative_Elements[j]:=0;
   FOR i:=1 TO 4 DO
     IF A[i,j]<0 THEN INC(Number_of_Negative_Elements[j]);
   WriteLn('Number of negative elements in column ',j,' is ',  
                    Number_of_Negative_Elements[j]);
  END;
 WriteLn;
 FOR j:=1 TO 3 DO
  BEGIN
   R:=A[4,j];
   A[4,j]:=A[2,j];
   A[2,j]:=R;
  END;
  FOR i:=1 TO 4 DO
   BEGIN
     FOR j:=1 TO 3 DO
       Write(A[i,j]:6:1);
     WriteLn;
   END;
 ReadLn;
END.