ID STRING REAL INTEGER AND ARRAY BEGIN BY DIV DO ELSE ELSIF END EXIT FOR IF IS LOOP MOD NOT OF OR PROCEDURE PROGRAM READ RECORD RETURN THEN TO TYPE VAR WHILE WRITE ASGN LEQ GEQ NEQ LBRANG RBRANG