DECLARE
i : integer; -- offset is 0
m : boolean; -- offset is 4
BEGIN
DECLARE
i: boolean; -- offset is 5
k: boolean; -- offset is 6
BEGIN
i := true;
DECLARE
q: integer; -- offset is 8
j: boolean; -- offset is 12
m: integer; -- offset is 14
BEGIN
j := i and k;
put(j);
END;
END;
i := 2;
DECLARE
i: integer; -- offset is 6
q: boolean; -- offset is 10
p: boolean; -- offset is 11
BEGIN
i := 3;
put(i);
END;
END;
-- 18 bytes is the minimal storage required for this activation record