PROGRAM MODESW;
VAR
  MODE:INTEGER;
BEGIN
  REPEAT
    WRITE('enter mode:');
    READLN(MODE);
    IF MODE <> 8 THEN SETMODE(MODE);
  UNTIL MODE = 8;
END.