Listing:

    1  MODULE BeDemo;
    2  CONST Max = 100;
    3  TYPE Vec = ARRAY [1 .. 10] OF INTEGER;
    4  VAR i, sum : INTEGER; v : Vec;
    5  BEGIN
    6    sum := 0;
    7    FOR i := 1 TO 10 DO v[i] := i * 2; sum := sum + v[i] END;
    8    IF sum > Max THEN sum := Max ELSIF sum = 0 THEN sum := 1 ELSE sum := sum + 1 END;
    9    WHILE sum > 10 DO sum := sum - 7 END
   10  END BeDemo.

    0 errors