PROGRAM
IDENT primes
SEMICOLON
IDENT n
COLON
INTEGER
SEMICOLON
IDENT a
COLON
ARRAY
L_PAREN
NUMBER 1000
R_PAREN
OF
INTEGER
SEMICOLON
IDENT i
COMMA
IDENT j
COLON
INTEGER
SEMICOLON
IDENT x
COMMA
IDENT sqrt_n
COLON
INTEGER
SEMICOLON
BEGIN_PROGRAM
READ
IDENT n
SEMICOLON
IDENT x
ASSIGN
IDENT n
SEMICOLON
WHILE
IDENT x
GT
IDENT n
DIV
IDENT x
LOOP
IDENT x
ASSIGN
L_PAREN
IDENT x
ADD
IDENT n
DIV
IDENT x
R_PAREN
DIV
NUMBER 2
SEMICOLON
ENDLOOP
SEMICOLON
IDENT sqrt_n
ASSIGN
IDENT x
SEMICOLON
IDENT i
ASSIGN
NUMBER 2
SEMICOLON
WHILE
IDENT i
LTE
IDENT n
LOOP
IDENT a
L_PAREN
IDENT i
R_PAREN
ASSIGN
NUMBER 0
SEMICOLON
IDENT i
ASSIGN
IDENT i
ADD
NUMBER 1
SEMICOLON
ENDLOOP
SEMICOLON
IDENT i
ASSIGN
NUMBER 2
SEMICOLON
WHILE
IDENT i
LTE
IDENT sqrt_n
LOOP
IF
IDENT a
L_PAREN
IDENT i
R_PAREN
EQ
NUMBER 0
THEN
IDENT j
ASSIGN
IDENT i
ADD
IDENT i
SEMICOLON
WHILE
IDENT j
LTE
IDENT n
LOOP
IDENT a
L_PAREN
IDENT j
R_PAREN
ASSIGN
NUMBER 1
SEMICOLON
IDENT j
ASSIGN
IDENT j
ADD
IDENT i
SEMICOLON
ENDLOOP
SEMICOLON
ENDIF
SEMICOLON
IDENT i
ASSIGN
IDENT i
ADD
NUMBER 1
SEMICOLON
ENDLOOP
SEMICOLON
IDENT i
ASSIGN
NUMBER 2
SEMICOLON
WHILE
IDENT i
LTE
IDENT n
LOOP
IF
IDENT a
L_PAREN
IDENT i
R_PAREN
EQ
NUMBER 0
THEN
WRITE
IDENT i
SEMICOLON
ENDIF
SEMICOLON
IDENT i
ASSIGN
IDENT i
ADD
NUMBER 1
SEMICOLON
ENDLOOP
SEMICOLON
END_PROGRAM