x=rndu(5,5);
n=5
j=1;
do until j>n
k=1;
do while k<=n;
   if x[j,k]>0.5;
      x[j,k]=1.5;
   endif;
   k=k+1;
endo;
j=j+1;
endo;