PROGRAM TEST0(OUTPUT);
  CONST TEN=10;PLUS='+';
  TYPE ROW = ARRAY[1..10] OF REAL;
       COMPLEX = RECORD RE,IM:REAL END;
  VAR I,J: INTEGER;
      P: BOOLEAN;
      Z: COMPLEX;
      MATRIX: ARRAY[-3..+3] OF ROW;
      PATTERN :ARRAY[1..5,1..5] OF CHAR;
  PROCEDURE DUMMY(VAR I: INTEGER;VAR Z: COMPLEX);
    VAR U,V: ROW;
        H1,H2: RECORD C:COMPLEX; R:ROW
               END;
    FUNCTION NULL(X,Y:REAL; Z:COMPLEX): BOOLEAN;
      VAR A: ARRAY['A'..'Z'] OF COMPLEX;
          U: CHAR;
    BEGIN WHILE X<Y DO X:=X+1.0;
          NULL := X=Y
    END(*NULL*);
  BEGIN P:=NULL(H1.C.RE,H2.C.IM,Z)
  END (*DUMMY*);
BEGIN I:=85; J:=51;
  REPEAT
    IF I>J THEN I:=I-J ELSE J:=J-I
  UNTIL I=J;
  WRITELN(I)
END.