- 01
 - 02
 - 03
 - 04
 - 05
 - 06
 - 07
 - 08
 - 09
 - 10
 - 11
 - 12
 - 13
 - 14
 - 15
 - 16
 - 17
 - 18
 - 19
 - 20
 - 21
 - 22
 - 23
 - 24
 
Lab1
 s x(2,2)=1
 s x(2,2,9)=0
 s y(3,6,7)=3
 s y(3,6,8)=4
 s y(3,6,7,8,4)=5
 s y(3,6,7,8,9)=6
 m x(2,2)=y(3,6,7,8)
 d Out("x(2,2)")
 
Out(l)
 i $d(l)#10{
	 i l
 	w l_" =",?15,@l,!
 	i $d(@l)\10{
	 	f {
		 	s c=$q(@l,1)
		 	q:c=""
		 	d Out(c)
		 	k @c
	 	}
 	}
 	q
 }
                                
 Follow us!
в комменте вроде указано Cache Object Script