assign6/controlsamples.txt

   1 BEGIN
   2     i := 0;
   3     j := 0;
   4     k := 0;
   5
   6     REPEAT
   7         j := i;
   8         k := i
   9     UNTIL i <= j;
  10
  11     WHILE i > j DO k := i;
  12
  13     FOR k := j TO 5 DO n := k;
  14
  15     IF (i = j) THEN t := 200
  16                ELSE f := -200;
  17 END.