10 'Инициализация  диагональной (единичной) матрицы X(3,3)
20 FOR I=1 TO 3:FOR J=1 TO 3
30 X(I,J)=INT(I/J)*INT(J/I)
40 NEXT J
50 NEXT I