dim x(3,3),y(3,3),z(3,3)
data 7,1,1,3,0,-3,18,-2,8
data 2,8,-7,3,10,-12,7,18,19
print"massiv X"
for i=1 to 3
for j=1 to 3
read x(i,j)
print x(i,j);
next
print
next
print"massiv Z"
for i=1 to 3
for j=1 to 3
read z(i,j)
print z(i,j);
next
print
next
print"massiv Y"
for i=1 to 3
for j=1 to 3
y(i,j)= x(i,j)-z(i,j)
print y(i,j);
next
print
next