PROGRAM
IDENT mytest
SEMICOLON
IDENT n
COLON
INTEGER
SEMICOLON
IDENT i
COMMA
IDENT j
COMMA
IDENT k
COLON
INTEGER
SEMICOLON
IDENT x
COMMA
IDENT y
COMMA
IDENT z
COLON
INTEGER
SEMICOLON
IDENT t
COLON
ARRAY
L_PAREN
NUMBER 100
R_PAREN
OF
INTEGER
SEMICOLON
BEGIN_PROGRAM
READ
IDENT n
COMMA
IDENT i
COMMA
IDENT j
COMMA
IDENT x
COMMA
IDENT y
SEMICOLON
IF
IDENT i
LT
IDENT j
AND
IDENT j
LTE
IDENT n
AND
IDENT i
GTE
NUMBER 0
THEN
IDENT t
L_PAREN
IDENT i
R_PAREN
ASSIGN
IDENT i
SEMICOLON
IDENT t
L_PAREN
IDENT j
R_PAREN
ASSIGN
IDENT j
SEMICOLON
IDENT k
ASSIGN
IDENT t
L_PAREN
IDENT i
R_PAREN
SEMICOLON
IDENT t
L_PAREN
IDENT i
R_PAREN
ASSIGN
IDENT t
L_PAREN
IDENT j
R_PAREN
SEMICOLON
IDENT t
L_PAREN
IDENT j
R_PAREN
ASSIGN
IDENT t
L_PAREN
IDENT i
R_PAREN
SEMICOLON
ELSE
WHILE
IDENT x
GT
IDENT y
OR
FALSE
LOOP
IDENT k
ASSIGN
L_PAREN
NUMBER 1
ADD
IDENT y
SUB
IDENT x
R_PAREN
MULT
IDENT n
DIV
NUMBER 3
ADD
IDENT x
SEMICOLON
IDENT x
ASSIGN
IDENT x
SUB
NUMBER 10
SEMICOLON
WRITE
IDENT k
SEMICOLON
ENDLOOP
SEMICOLON
ENDIF
SEMICOLON
WRITE
IDENT i
COMMA
IDENT j
COMMA
IDENT x
COMMA
IDENT y
COMMA
IDENT t
L_PAREN
IDENT i
R_PAREN
COMMA
IDENT t
L_PAREN
IDENT j
R_PAREN
SEMICOLON
END_PROGRAM