PROGRAM SpecialSymbols1;
    VAR
        I: Integer;
        A: Array[1..5] OF Integer;
BEGIN
    FOR I := Low(A) TO High(A) DO
        A(.I.) := I;                { A[I] := I     }

    FOR I := Low(A) TO High(A) DO
        WriteLn(A(.I.));            { WriteLn(A[I]) }
END.