"CODE" 31054;
"PROCEDURE" SHTCHSPOL(N,A);
"VALUE" N; "INTEGER" N; "ARRAY" A;
"BEGIN"
    CHSPOL(N,A);
    LINTFMPOL(2,-1,N,A);
"END" SHTCHSPOL;
        "EOP"