1 program lsp1;
   2 uses mtx09;
   3 var m:mtx;
   4 begin
   5   zer(m,5,2);
   6   lsp(col(m,1),0.0,1.0);
   7   mwr(m)
   8 end.
   9 {
  10 0   0
  11 0.250000   0
  12 0.500000   0
  13 0.750000   0
  14 1   0
  15 
  16 }