CONST a = 13, b = 12;
CONST c=25;
VAR d,e : INTEGER;
VAR f : ARRAY 12 OF INTEGER;
VAR g,h,i : ARRAY 12 OF ARRAY 2 OF INTEGER;
TYPE j = INTEGER;
TYPE k = ARRAY 5 OF BOOLEAN;
TYPE l = ARRAY 2 OF k;
TYPE m = ARRAY 3 OF ARRAY 5 OF BOOLEAN;

PROCEDURE blubber(n,o:j;VAR p:BOOLEAN);

CONST a = 5;

BEGIN
  d := 5 * 3;
  ? d;
END;

BEGIN
END.
