'BEGIN' 'COMMENT' 'LIBRARY'5; 'REAL' PR; 'INTEGER' PI; 'BOOLEAN' PB; PI := 1; PR := 0.0&0; PB := 'IF' 'NOT' PI > 0 'AND' PI >= 1 'OR' PI < 0 'IMPL' PR <= 0 'EQUIV' PI # 0 'THEN' 'TRUE' 'ELSE' 'TRUE'; 'IF' PB 'THEN' PR := - 1 * PI^3 'DIV' 2 + ENTIER(SIGN(SQRT(ABS(ARCTAN(LN(EXP(COS(SIN(1))))) )))) - (PR / ('IF' PR = 0.0 'THEN' 3 'ELSE' 3)); 'BEGIN' 'SWITCH' PSW := ENTRY, EXIT; 'OWN' 'REAL' 'ARRAY' PRA(/0 : 1/); 'INTEGER' 'ARRAY' PIA(/2 : 3/); 'BOOLEAN' 'ARRAY' PBA(/ - 1 : 0/); 'BOOLEAN' 'PROCEDURE' PFB; PFB := 'FALSE'; 'PROCEDURE' WRITE TEXT(OD, S); 'VALUE' OD; 'INTEGER' OD; 'STRING' S; OUTREAL(99, OD); 'PROCEDURE' ALL PARAMETERS(CSR, CSI, CSB, CA1, CA2, CB, CRFA, CIFA, CBFA, CFR, CFI, CFB, CL, CSL, CPR, CST, CSW, CAR, CAI, CAB); 'VALUE' CA1, CA2, CB, CRFA, CIFA, CBFA, CSL; 'INTEGER' CSI, CA2; 'REAL' CSR, CA1; 'BOOLEAN' CSB, CB; 'INTEGER' 'ARRAY' CIFA, CAI; 'REAL' 'ARRAY' CRFA, CAR; 'REAL' 'PROCEDURE' CFR; 'COMMENT'(X): 'VALUE' X: 'REAL' X; 'INTEGER' 'PROCEDURE' CFI; 'COMMENT'(X): 'VALUE' X: 'REAL' X; 'BOOLEAN' 'PROCEDURE' CFB; 'BOOLEAN' 'ARRAY' CBFA, CAB; 'PROCEDURE' CPR;'COMMENT'(D,S):'VALUE' D:'INTEGER' D:'STRING' S; 'STRING' CST; 'SWITCH' CSW; 'LABEL' CL, CSL; 'BEGIN' 'REAL' 'PROCEDURE' TAKE FORMAL(TF); 'REAL' TF; TAKE FORMAL := TF; CAR(/1/):= TAKE FORMAL(CA1); CAI(/2/):= CA2; CAB(/ - 1/):= CB; CPR(30, CST); CFB; CA2 := CFI(1); 'GOTO' CL; 'END' ALL PARAMETERS; 'FOR' PI := PI + 1 'WHILE' PI < 3, 1 'STEP' 1 'UNTIL' 1, 1 'DO' PI := PI := PI; 'GOTO' PSW(/1/); ENTRY :; ALL PARAMETERS(PR, PI, PB, 3.0, 3, 'FALSE', PRA, PIA, PBA, SIN, ENTIER, PFB, PSW(/2/), EXIT, WRITE TEXT, < THIS$IS$A$STRING>, PSW, PRA, PIA, PBA); EXIT :; OUTREAL(99, PRA(/1/)+ PIA(/2/)+ PI + PR + ('IF' PBA(/ - 1/) 'THEN' 10 'ELSE' 0)); 'END'; 'END'