| 1 | PROGRAM SYNTAXERROR(OUTPUT); |
| 2 | CONST M = 10, N := 20 |
| 3 | TYPE T = ARRAY 1..10 OF REAL; |
| 4 | R := RECORD X: REAL |
| 5 | B,C : BOOLEAN |
| 6 | END |
| 7 | VAR I: INTEGER; |
| 8 | P,Q: BOOLEAN; X,Y: REAL;; |
| 9 | I: INTEGER, CH: CHAR |
| 10 | A: ARRAY (1..M) OF INTEGER; |
| 11 | CONST Y = 3.14159; |
| 12 | BEGIN I := X M := I |
| 13 | IF B DO P = (P OR Q; |
| 14 | WHILE J < 10 |
| 15 | BEGIN K := .5+(X-Y; Y := X) |
| 16 | END |
| 17 | IF P THEN P = 1; ELSE I := 2; |
| 18 | REPEAT X := P + I*(X>Y); |
| 19 | FOR X := 1 TO Q |
| 20 | BEGIN I := A[2 |
| 21 | UNTIL I=J |
| 22 | FOR J := 1 TO N WHILE X > 0 DO |
| 23 | BEGIN A(I] := A[J+1); READ(I) |
| 24 | END . |