BEGIN
COMMENT THIS PROGRAM DEMONSTRATES THE ASSIGNMENT ON THE FLY
        STATEMENT: IT READS TWO INTEGERS AT A TIME FROM THE CONSOLE
        AND WRITES THREE VALUES BACK TO THE CONSOLE AS INDICATED  
        IN THE CODE;
INTEGER A,B,C;

WHILE 1=1 DO
  BEGIN
    WRITE("INPUT TWO INTEGER VALUES SEPARATED BY COMMAS");
    READ(A,B);
    IF (A:=B*2)>(C:=B) THEN WRITE("GREATER");
    WRITE(A,B,C);
    A:=B:=(C:=A:=B)*2;
    WRITE(A,B,C);
  END;
END
