with(LinearAlgebra):N:=5;B:=RandomMatrix(N,N,generator=3..10);RA:=proc(i,j) global N,B; local k; for k from 1 to N do B[j,k]:=B[j,k]+B[i,k]; end; return B; end;CA:=proc(i,j) global N,B; local k; for k from 1 to N do B[k,j]:=B[k,j]+B[k,i]; end; return B; end;RS:=proc(i,j,k) local l; global N,B; if B[i,k]>=B[j,k] then return B; end; for l from 1 to N do while(B[i,l]>=B[j,l]) do CA(k,l); end; end; for l from 1 to N do B[j,l]:=B[j,l]-B[i,l]; end;return B;end;CS:=proc(i,j,k) local l; global N,B; if B[k,i]>=B[k,j] then return B; end; for l from 1 to N do while(B[l,i]>=B[l,j]) do RA(k,l); end; end; for l from 1 to N do B[l,j]:=B[l,j]-B[l,i]; end;return B;end;MRS:=proc(i,j,k) local l; global N,B; while B[i,k]<B[j,k] do RS(i,j,k); end;return B;end;B;MRS(1,2,5);MRS(2,1,1);MRS(1,3,1);MRS(1,4,1);MRS(1,5,1);TTdSMApJN1JUQUJMRV9TQVZFLzQzNjUwOTM4MTZYLCUpYW55dGhpbmdHNiI2IltnbCEiJSEhISM6IiYiJiIiKCIiJUYoIiM1RihGJyIiJEYnRidGKCIiKUYnRihGJ0YqIiInRihGKEYpRihGK0YsRixGKiIiKkYmTTdSMApJN1JUQUJMRV9TQVZFLzQ0MzAxNDE3NTJYLCUpYW55dGhpbmdHNiI2IltnbCEiJSEhISM6IiYiJiIiIkYnRidGJ0YnRiciIz4iJFcmIiRIJSIkQyZGJyIjQSIkTyciJCdcIiQ4J0YnIiNNIiUwNSIkJ3kiJG0qRiciI1wiJV05IiVMNiIlLzlGJg==TTdSMApJN1JUQUJMRV9TQVZFLzQ0MzAxNDE3NTJYLCUpYW55dGhpbmdHNiI2IltnbCEiJSEhISM6IiYiJiIiIkYnRidGJ0YnRiciIz4iJFcmIiRIJSIkQyZGJyIjQSIkTyciJCdcIiQ4J0YnIiNNIiUwNSIkJ3kiJG0qRiciI1wiJV05IiVMNiIlLzlGJg==TTdSMApJN1JUQUJMRV9TQVZFLzQ0MzAxNDE3NTJYLCUpYW55dGhpbmdHNiI2IltnbCEiJSEhISM6IiYiJiIiIkYnRidGJ0YnRiciIz4iJFcmIiRIJSIkQyZGJyIjQSIkTyciJCdcIiQ4J0YnIiNNIiUwNSIkJ3kiJG0qRiciI1wiJV05IiVMNiIlLzlGJg==TTdSMApJN1JUQUJMRV9TQVZFLzQ0MzAxNDE3NTJYLCUpYW55dGhpbmdHNiI2IltnbCEiJSEhISM6IiYiJiIiIkYnRidGJ0YnRiciIz4iJFcmIiRIJSIkQyZGJyIjQSIkTyciJCdcIiQ4J0YnIiNNIiUwNSIkJ3kiJG0qRiciI1wiJV05IiVMNiIlLzlGJg==TTdSMApJN1JUQUJMRV9TQVZFLzQ0MzAxNDE3NTJYLCUpYW55dGhpbmdHNiI2IltnbCEiJSEhISM6IiYiJiIiIkYnRidGJ0YnRiciIz4iJFcmIiRIJSIkQyZGJyIjQSIkTyciJCdcIiQ4J0YnIiNNIiUwNSIkJ3kiJG0qRiciI1wiJV05IiVMNiIlLzlGJg==TTdSMApJN1JUQUJMRV9TQVZFLzQ0MzAxNDE3NTJYLCUpYW55dGhpbmdHNiI2IltnbCEiJSEhISM6IiYiJiIiIkYnRidGJ0YnRiciIz4iJFcmIiRIJSIkQyZGJyIjQSIkTyciJCdcIiQ4J0YnIiNNIiUwNSIkJ3kiJG0qRiciI1wiJV05IiVMNiIlLzlGJg==