MODULE MTIMEI;

   FROM Terminal IMPORT   (* standard module as defined by Wirth *)
      Write, WriteLn, WriteString;

   FROM ASCII IMPORT
      bel;

   VAR
      x, y, z : INTEGER;
      i : CARDINAL;


   PROCEDURE Delay (x : CARDINAL);   (* variable Delay, x in milliseconds *)

      VAR
         i, j : CARDINAL;

      BEGIN
         FOR i := 1 TO x DO
            FOR j := 1 TO 18 DO
            END;
         END;   
      END Delay;


BEGIN
   x := 11;   y := 2;

   WriteString ('Blank');   WriteLn;
   Delay (500);
   Write (bel);   
   i := 1;
   REPEAT
      z := y;
      i := i + 1;
   UNTIL i = 10000;
   Write (bel);
   Delay (4000);

   WriteString ('Addition');   WriteLn;
   Delay (500);
   Write (bel);   
   i := 1;
   REPEAT
      z := x + y;
      i := i + 1;
   UNTIL i = 10000;
   Write (bel);
   Delay (4000);

   WriteString ('Subtraction');   WriteLn;
   Delay (500);
   Write (bel);   
   i := 1;
   REPEAT
      z := x - y;
      i := i + 1;
   UNTIL i = 10000;
   Write (bel);
   Delay (4000);

   WriteString ('Multiplication');   WriteLn;
   Delay (500);
   Write (bel);   
   i := 1;
   REPEAT
      z := x * y;
      i := i + 1;
   UNTIL i = 10000;
   Write (bel);
   Delay (4000);

   WriteString ('Division');   WriteLn;
   Delay (500);
   Write (bel);   
   i := 1;
   REPEAT
      z := x DIV y;
      i := i + 1;
   UNTIL i = 10000;
   Write (bel);
   Delay (4000);

   WriteString ('Modulus');   WriteLn;
   Delay (500);
   Write (bel);   
   i := 1;
   REPEAT
      z := x MOD y;
      i := i + 1;
   UNTIL i = 10000;
   Write (bel);
   Delay (4000);

   WriteString ('Good-bye...');   WriteLn;
END MTIMEI.
