1 {
   2 #! /bin/bash
   3 ./axs0 "1 2 3; 4 5 6"
   4 exit 0
   5 }
   6 program axs0;
   7 uses mtx09;
   8 var
   9   a: mtx;
  10   m, n: longint;
  11   x: double;
  12 begin
  13   equ(a,paramstr(1)); // read mtx a on cmd line
  14   mwr(a);
  15   m := lgn(a);
  16   n := col(a);
  17   x := elm(a,m,n);  // x = a(m,n)
  18   mwr(x);
  19   elm(a,m,n,-x);    // a(m,n) = -x
  20   mwr(a)
  21 end.
  22 {
  23 1   2   3
  24 4   5   6
  25 
  26 6
  27 
  28 1   2   3
  29 4   5   -6
  30 
  31 }