private int Max(int x, int y)
        {
            if (x == 0 && y == 0) throw new System.Exception();
            return x > y ? x : y;
        }

if(
    ( (A[0]>=B[0][0]) && (A[1]>=B[0][1]) && (A[2]>=B[0][2]) ) ||
    ( (A[0]>=B[1][0]) && (A[1]>=B[1][1]) && (A[2]>=B[1][2]) ) ||
    ( (A[0]>=B[2][0]) && (A[1]>=B[2][1]) && (A[2]>=B[2][2]) )
    )

   AREA   SpellCheck, CODE, READONLY
   IMPORT   main
   EXPORT   start

start
   LDR R1, =tstword   ; load tstword to r1
   LDR R2, =tstlist   ; load tstlist to r2
   LDR R5, =0         ; set counter to 0(r5)
   LDR R6, =0         ; set counter to 0(r6)
   
rep   LDRB R3, [R1]      ; load first byte from r1
   LDRB R4, [R2]      ; load first byte from r2

   CMP R3, #0x20       ; compare r3 to 0x20(space)
   BEQ do3            ; if r3 == 0x20, branch to 'do3'
   CMP R4, #0x4      ; compare r4 to 0x4
   BEQ set0         ; if r4 is 0x4, branch to 'set0'
   CMP   R3, R4         ; compare r3 to r4
   BNE do1            ; if r3 != r4, branch to 'do1'
   CMP R3, #0         ; compare r3 to 0
   BEQ set1         ; if r3 equal to 0, branch to 'set1'
   ADD R1, R1, #1      ; take next byte in r1
   ADD R2, R2, #1         ; take next byte in r2
   ADD R5, R5, #1      ; add 1 to the counter
   ADD R6, R6, #1      ; add 1 to the counter
   B rep            ; branch to 'rep'

do1 SUB R1, R1, R5      ; get to the first letter of the word in the sentence
   LDR R5, =0         ; set counter to 0
do2   LDRB R4, [R2]      ; load first byte from r2
   ADD R2, R2, #1         ; take next byte in r2
   ADD R6, R6, #1      ; add 1 to the counter
   CMP R4, #0x4      ; compare r4 to 0x4
   BEQ set0         ; if r4 is 0x4, branch to 'set0'
   CMP R4, #0         ; compare r4 to 0
   BEQ rep            ; if r4 is equal to 0, branch to 'rep'
   B do2            ; if r4 is not equal to 0x4 or 0, branch to 'do2'

do3 SUB R2, R2, R6       ; get to the start of words list
   LDR R6, =0         ; set counter to 0(r6)
!!!!!!     LDR R5, =0         ; set counter to 0(r5) !!!!!!!!!
   ADD R1, R1, #!!!!1!!!(было 4...)      ; take next byte in r1
   B rep            ; branch to 'rep'

set1 LDR R0, =1         ; if r5 was 0, set r0 to 1
    B stop            ; stop after prev. instruction(branch to stop)
set0 LDR R0, =0         ; if r3 is not equal to r4, set r0 to 0
      
stop   B   stop


   AREA   Strings, DATA, READWRITE

tstword   DCB   "the weekend was",0
tstlist   DCB   "the",0,"weekend",0,"was",0,"wet",0,"cheese",0,"circuit",0
   DCB   "shoe",0,"brick",0,"after",0,4

   END   

        private bool Universal()
        {
            for (int i = 0; i < M; i++)
            {
                bool b = true;
                for (int j = 0; j < N; j++) if (A[j] < B[i][j]) { b = false; break; }
                if (b) return true;
            }
            return false;
        }

bool U(int i, int j) { return A[j] >= B[i][j] ? (++j < N ? U(i, j) : true) : ++i < M ? U(i, 0) : false; }

if (U(0,0))

[color=#BFFF80]write(' ....',x:5:2, '.....',y:5:2);
x:=x+h[/color]