1 {
   2 #! /bin/bash
   3 ./rwr1
   4 cat test.txt
   5 rm test.txt
   6 exit 0
   7 }
   8 program rwr1;
   9 uses mtx09;
  10 var
  11   f: text;
  12 begin
  13   rwr('test.txt',f);
  14   mwr(2.0,f);
  15   mwr(1.0/3.0,f);
  16 end.
  17 {
  18 2
  19 
  20 0.333333
  21 
  22 }