1 PROGRAM SYNTAXERROR(OUTPUT);
3 TYPE T = ARRAY 1..10 OF REAL;
8 P,Q: BOOLEAN; X,Y: REAL;;
10 A: ARRAY (1..M) OF INTEGER;
15 BEGIN K := .5+(X-Y; Y := X)
17 IF P THEN P = 1; ELSE I := 2;
18 REPEAT X := P + I*(X>Y);
22 FOR J := 1 TO N WHILE X > 0 DO
23 BEGIN A(I] := A[J+1); READ(I)