VAR arr := ARRAY [1..3] OF INTEGER;
arr[1] := 10;